Юрий
4 год назад
Напишите программу, которая в последовательности натуральных чисел определяет максимальное четное число.Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В последовательности всегда имеется четное число.Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000.Программа должна вывести одно число - максимальное четное число.Пример работы программы:Входные данныеВыходные данные3 _______________42109942
ОТВЕТЫ
Ignat
Oct 24, 2020
Program n1;
var i,a,max,n: integer;
begin
max:=0;
readln(n);
if n<1000 then for i:=1 to n do
begin
readln(a);
if ( a mod 2=0) and (max<a) then max:=a;
end;
writeln(max);
end.
var i,a,max,n: integer;
begin
max:=0;
readln(n);
if n<1000 then for i:=1 to n do
begin
readln(a);
if ( a mod 2=0) and (max<a) then max:=a;
end;
writeln(max);
end.
991
Смежные вопросы:
