Найти максимальный элемент ( Max) численного массива на языке паскаля

1

Ответы и объяснения

  • Участник Знаний
2014-04-14T16:34:26+00:00
Var
   i,max:integer;
   a:array[1..10]of integer;
Begin
writeln('Массив:');
for i:=1 to 10 do
   begin
   a[i]:=random(20);
   write(a[i],' ');
   if a[i]>max then max:=a[i]
   end;
writeln;
writeln('max=',max)
End.