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

notcloud228 notcloud228    3   30.05.2019 21:00    0

Ответы
Асемаmail Асемаmail  01.07.2020 01:36
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика