ПОМОГИТЕ СРОЧНО ДАЮ 90Б!
Дано N целых чисел.Вывести наибольшее четное.Если четных нет, вывести слово NO.
Во входном потоке в первой строке задано целое число N - количество элементов числовой последовательности (0 < N < 100). Во второй строке через пробел перечислены значения элементов целочисленной последовательности. Значения элементов по модулю не превышают 30000.
В выходной поток вывести единственное целое число или слово 'NO'.
Дано N целых чисел.Вывести наибольшее четное.Если четных нет, вывести слово NO.
Во входном потоке в первой строке задано целое число N - количество элементов числовой последовательности (0 < N < 100). Во второй строке через пробел перечислены значения элементов целочисленной последовательности. Значения элементов по модулю не превышают 30000.
В выходной поток вывести единственное целое число или слово 'NO'.
More Questions From This User See All
Answers & Comments
Verified answer
var n,a,max,i:integer;
begin
readln(n);
max:=-30001;
for i:=1 to n do
begin
read(a);
if (a mod 2=0)and(a>max) then max:=a;
end;
if max<>-30001 then writeln(max)
else writeln('No');
end.
Пример:
5
12 65 74 87 64
74