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

Question

Информатика

Нинуха

27 ноября, 00:22

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

+2

Ответы (1)

Знаете ответ на вопрос?

Констанция · Answer 1

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.