Написать программу, находящую максимальный элемент массива
Answers & Comments
Nеmo
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.
Answers & Comments
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.