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

Question

Информатика

Нинуня

6 февраля, 19:15

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

+3

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