Напишите программу, которая в последовательности натуральных чисел находит
минимальное нечетное трехзначное число или сообщает, что таких чисел нет. На вход
программы подаются количество чисел n, а дальше сами числа x. Программа должна
вывести минимальное четное трехзначное число или вывести NO, если таких чисел в
последовательности нет. PASCAL ОЧЕНЬ СРОЧНО!!!!!!
минимальное нечетное трехзначное число или сообщает, что таких чисел нет. На вход
программы подаются количество чисел n, а дальше сами числа x. Программа должна
вывести минимальное четное трехзначное число или вывести NO, если таких чисел в
последовательности нет. PASCAL ОЧЕНЬ СРОЧНО!!!!!!
More Questions From This User See All
Answers & Comments
Ответ:
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.