Язык программирования: Паскаль. Написать программу. Заполнить массив из 10…

var a: array[1… 10]of integer; i,j,k: integer; beginfor i: =1 to 10 do a[i]: =random (101); for i: =1 to 10 do write (a[i],'); writeln; for i: =1 to 5 dofor j: =1 to 4 doif a[j]>a[j+1] then begink: =a[j]; a[j]: =a[j+1]; a[j+1]: =k; end; for i: =1 to 5 dofor j: =7 to 10 doif a[j]>a[j-1] then begink: =a[j]; a[j]: =a[j-1]; a[j-1]: =k; end; for i: =1 to 10 do write (a[i],'); end.