В ПАСКАЛЕ И ТОЛЬКО В ПАСКАЛЕ.
1)дан массив десяти целых чисел напишите программу которая выводит элементы массива в порядке не убывания.

2)дан массив десяти целых чисел напишите программу которая выводит элементы массива в порядке убывания , а также выводит количество перестановок.
3)дан массив десяти целых чисел. Найти медиану числового ряда.
4) Дан массив десяти целых чисел выведите минимальное число массива оканчиговающегося на 4
5) дан массив десяти целых чисел напишите программу которая выводит на экран на экран максимальное число кратное 5.

2-бред, 4-условие не понятно

оканчивающеесяя на 4

Щас добавлю

 1) var i,n,k:integer; a:array[1..10] of integer;begin for i:=1 to 10 do  read(a[i]); writeln; for i:=10 downto 1 do  write(a[i],' '); readln; readlnend.3)var i,n,k:integer;a:array[1..10] of integer;begin for i:=1 to 10 do  read(a[i]); writeln; writeln((a[5]+a[6])/2:0:2); readln; readlnend.4)var i,n,k,min:integer;a:array[1..10] of integer;begin for i:=1 to 10 do  begin   read(a[i]);   if (a[i] mod 10=4) or (a[i] mod 10=-4)    then min:=a[i]; for i:=1 to 10 do   if ((a[i] mod 10=4) or (a[i] mod 10=-4)) and (a[i]<min)    then min:=a[i]; writeln(min);end.5) var i,n,k,max:integer;a:array[1..10] of integer;begin max:=0; for i:=1 to 10 do  begin   read(a[i]);   if (a[i] mod 5=0) and (a[i]>max)    then max:=a[i];  end; writeln(max);end.