Найти значение наимньшего числа, из всех четных введеных чисел, не превышая 30000
Найти значение наимньшего числа, из всех четных введеных чисел, не превышая 30000
Гость
Ответ(ы) на вопрос:
Гостьvar n, i: Integer;
a, min: LongInt;
Begin
min := 30000;
readln(n);
for i := 1 to n do begin
read(a);
if (a mod 2=0) and (a < min) then min := a;
end;
writeln(min);
End.
Не нашли ответ?
Похожие вопросы