Question

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

Answer 1

var x:array [1..30000] of integer;

i: ineger;

begin

ReadLn(x[i]);

if x[i] mod 4 then

begin

x[iMax]:=x[i];

iMax:=1;

for i:=1 to 30000 do

if x[i]>max then

begin

x[iMax]:=x[i];

iMax:=i;

end;

end;

for i:=1 to 30000 do

WriteLn(x[i]);

end.