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

Заполнить массив из 10 элементов случайными числами в интервале [0..100] и отсортировать первую половину по возрастанию, а вторую – по убыванию.

 

 

 

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.