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

Напишите программку,которая в последовательности естественных чисел определяет наибольшее четное число, оканчивающееся на 4. Программка получает на вход количество чисел в последовательности,а потом сами числа. В последовательности всегда имеется число, заканчивающееся на 4. Количество чисел не превосходит 1000. Введённые числа не превышают 30000. Программка должна вывести одно число - наибольшее четное число, оканчивающееся на 4.

Задать свой вопрос
1 ответ

var i,a,n,b:integer;

begin

read(n);

for i:= 1 to n do

begin

read(a);

if (a mod 10=4) and (agt;b) then b:=a;

end;

write(b);

end.

Роман Драпей
спасибо огромное,я вас люблю
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт