В одномерном массиве А (10) найти наибольший элемент. решение в паскаль

Question

Информатика

Ерофей

15 апреля, 21:27

В одномерном массиве А (10) найти наибольший элемент. решение в паскаль

+4

Ответы (1)

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

Славуся · Answer 1

Var

a:array[1 ... 1000000]of integer;

i, max, n:integer;

begin

readln (n) ;

for i:=1 to n do

readln (a[i]) ;

for i:=1 to n do begin

if a[i]>max then

max:=a[i];

end;

writeln ('максимальный элемент массива=', max) ;

end.