Напишите программку в PaskalABC , которая в последовательности натуральных чисел определяет

Напишите программку в PaskalABC , которая в последовательности естественных чисел определяет максимальное чётное число.
Программка получает на вход количество чисел в последовательности , а затем сами числа . В последовательности всегда имеется чётное число. Количество чисел не превосходит 1000. Введённые числа не превышают 30000.Программка обязана вывести одно число-наибольшее чётное число .
Пример работы программки :
Входные данные :3,10,99,42
Выходные данные:42

Задать свой вопрос
1 ответ
Var
N,A,M:word;
Begin
Read(N);
M:=0;
For N:=1 to N do
    Begin
    Read(A);
    if (Agt;M)and(A mod 2 = 0) then M:=A;
    End;
Write(M)
End.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт