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

  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;   readln end. 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;   readln end. 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.

Каждая девочка   -   х; 1 час = 60 мин 2х = 60  х = 30 3х = 90,  90 - 60 = 30 60 - 30 = 30 ответ: полчаса но я не уверена в решениину а так я решилаудачи