Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число. Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число — максимальное четное число. Пример работы программы: Входные данные Выходные данные 3 _______________42 10 99 42 ну чтобы она работала ,ребят ,и с writeln(…. а то не понятно что куда вводить

Вопрос школьника по предмету Информатика

Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число. Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число — максимальное четное число. Пример работы программы: Входные данные Выходные данные 3 _______________42 10 99 42
ну чтобы она работала ,ребят ,и с writeln(….
а то не понятно что куда вводить

Ответ учителя по предмету Информатика

n — количество чисел в последовательности, i — для организации цикла for, x — очередное число из последовательности

В начале задаем значение max = 0, потому что рассматриваем последовательность натуральных чисел ( 1 и больше), то есть первое же натуральное четное будет записано в max

В конце выводим ьфч только если он не равен нулю, тоесть в последовательности было натуральное четное число!

program z1;var n, i, x, max: integer;beginmax := 0;readln(n);for i := 1 to n dobegin   read(x);   if (x mod 2 = 0) and (x > max) then max := x;end;if max > 0 then writeln(max) else writeln (‘Не таких чисел’);end.