Определить максимальное значение среди положительных элементов из N введеных

Question

Информатика

Вела

12 апреля, 13:05

Определить максимальное значение среди положительных элементов из N введеных

+4

Ответы (1)

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

Натала · Answer 1

Program gt;

var a, i, n, max:longint;

begin

read (N) ;

max:=0;

for i:=1 to n do

begin

read (A) ;

if (a>max) then max:=a;

end;

if (max=0) then writeln ('положительных чисел нет') else writeln (max) ;

end.