ПОМОГИТЕ СРОЧНО ДАЮ 90Б!Дано N целых чисел.Вывести величайшее четное.Если четных нет,

ПОМОГИТЕ СРОЧНО ДАЮ 90Б!
Дано N целых чисел.Вывести наивеличайшее четное.Если четных нет, вывести слово NO.
Во входном потоке в первой строке задано целое число N - количество элементов числовой последовательности (0 lt; N lt; 100). Во 2-ой строке через пробел перечислены значения частей целочисленной последовательности. Значения частей по модулю не превосходят 30000.
В выходной поток вывести единственное целое число или слово 'NO'.

Задать свой вопрос
Надя Тинина
Яп?
Баринцева Ирина
что это значит
1 ответ

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(agt;max) then max:=a;

end;

if maxlt;gt;-30001 then writeln(max)

else writeln('No');

end.

Пример:

5

12 65 74 87 64

74

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт