1)дан числовой массив из 10 чисел ( случайным образом) в интервале (50, 250) . отсортировать массив. 2) в компьютер вводится результат для 10 абитуриентов. вывести на экран фамилии и результат тех, кто попадает в интервал ( 10, 30) подсчитать среднее арифметическое. 3) дан массив из 10 элементов. определить 2х значные числа и которые заканчиваются на цифре 5.

1) program otsort;
var a:array[1..10] of integer;
i,j,b:integer;
begin
for i:=1 to 10 do begin a[i]:=random(201)+50; write(a[i]:4); end;
for i:=1 to 10 do
for j:=1 to 9 do if a[j+1]<a[j] then begin //отсортировка по возрастанию, поменять < на > для сортировки по убыванию
                                 b:=a[j+1];
                                 a[j+1]:=a[j];
                                 a[j]:=b;
                                 end;
writeln;
for i:=1 to 10 do write(a[i]:4);
end.