Определить максимальное значение среди положительных элементов из N введеных
Определить максимальное значение среди положительных элементов из N введеных
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы