Question

4 раз выкладываю!
помогите пожалуйста!

Язык программирования Pascal

Дан массив из 10 целых чисел от 2 до 50. Найти максимальный элемент массива.

​​

Answer 1

var a:array [1..10] of integer;

i,j:integer;

begin

 for i:=1 to 10 do begin

   a[i]:=2+random(49);

   write(a[i],' ');

   end;

 for i:=1 to 9 do begin

   for j:=1 to 10-i do

     if a[j]>a[j+1] then

       swap(a[j],a[j+1]);

 end;

 writeln;

   for i:=1 to 10 do begin

     write(a[i],' ');

   end;

   writeln;

   write(a[10]);

end.