Напишите программу, которая в последовательности натуральных чисел находит
минимальное нечетное трехзначное число или сообщает, что таких чисел нет. На вход
программы подаются количество чисел n, а дальше сами числа x. Программа должна
вывести минимальное четное трехзначное число или вывести NO, если таких чисел в
последовательности нет. PASCAL ОЧЕНЬ
dany20skribka
2
30.05.2020 12:12
2
Другие вопросы по теме Информатика
МориартиvsШерлок
06.03.2022 19:46
1ТекуОтОтветов
06.03.2022 20:13
innahot418
29.09.2019 08:40
VeshkinRuslan
29.09.2019 08:40
Полина2684
10.08.2019 14:50
alena10003
10.08.2019 14:50
макс3093
10.08.2019 14:50
Azalia1324
10.08.2019 14:50
zimenko201411
10.08.2019 14:50
Популярные вопросы
- решить ответ должен получиться: x1=0,5 3^ √4 x2=2...
2 - План рассказа слон Саша Чёрный...
3 - В саду растёт 75 кустов красный чёрный и белый смородины когда собрали урожай 27...
2 - Степени сравнения образуй все возможные степени сравнение слов приятный дорогая...
2 - Какие из выражений тождественно равны 2n+2c? 2(-n+c) (c-n)⋅2 2(c+n) 2(-n-c) 2(c-n)...
1 - , кому не сложно. можно развёрнутым ответом? 8t *(-0,01)p*(-5)k =...
2 - Византийская империя при Юстиане 1...
3 - Кроссворд по теме«Электробытовые приборы 1. Бытовой кухонный электроприбор. 2. Бытовой...
3 - Существует видовая пара у слово продолбить...
1 - Написать высоту любых 3 мебели (предмета) с избытком и с недостатком...
1
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.