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

Question

Информатика

Нинуня

5 апреля, 00:04

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

+1

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