Напишите программу, которая в последовательности - вопрос №13439537 от spilevdenis1 22.02.2023 02:45

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел находит минимальное нечетное трехзначное число или сообщает, что таких чисел нет. На вход программы подаются количество чисел n, а дальше сами числа x. Программа должна вывести минимальное четное трехзначное число или вывести NO, если таких чисел в последовательности нет. PASCAL ОЧЕНЬ

spilevdenis1 · Answer

var i, min, x, n:Integer;

begin

min:=1000;

readln(n);

for i := 1 to n do

begin

readln(x);

if (x < min) and (x mod 2 <> 0) and (x>=100) and (x<1000) then

min:=x;

end;

if min = 1000 then

writeln('NO')

else

writeln(min);

end.