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

Question

Информатика

Кузяха

17 сентября, 01:47

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

+2

Ответы (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.