Найти максимальное значение положительных элементов массива

Question

Информатика

Флорентин

22 сентября, 04:03

Найти максимальное значение положительных элементов массива

+4

Ответы (1)

Знаете ответ?

Афанасий · Answer 1

Var

i, max:integer;

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

begin

writeln ('Введите числа') ;

for i:=1 to 10 do

read (a[i]) ;

max:=a[1];

for i:=1 to 10 do

begin

if max
max:=a[i];

end;

writeln ('max = ', max) ;

end.