Написать программу, находящую максимальный элемент массива

naranovnaran08 naranovnaran08    2   18.06.2019 02:30    1

Ответы
raku13 raku13  14.07.2020 21:18
Const n=10;
Var a:array[1..n] of integer;
i,max:integer;
Begin
Randomize;
For i:=1 to n do
Begin
A[i]:=Random(20);
Writeln(a[i],' ');
end;
For i:=1 to n do
begin
If A[i]>max then
max:=a[i];
end; 
Writeln('Максимальный элемент: ',max);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика