Var
n : word;
a, max, i: integer;
Begin
repeat
write ('N = ');
readln (n);
until (n>0) and (n<=1000);
write ('A=');
read(a);
if a mod 4=0 then max:=a;
while i<>n-1 do begin
write ('A= ');
readln (a);
if (a>max) and (a mod 4=0) then max:=a;
i:=i+1;
end;
writeln ('Max:', max);
End.
Как то так
переменная N отвечает за кол-во вводимых цифр
а А за сами числа. Для удобства поменяй имена переменных, просто я так привык обозначать. Прогу проверял вроде работает. Надеюсь Удачи!
Var
n : word;
a, max, i: integer;
Begin
repeat
write ('N = ');
readln (n);
until (n>0) and (n<=1000);
write ('A=');
read(a);
if a mod 4=0 then max:=a;
while i<>n-1 do begin
write ('A= ');
readln (a);
if (a>max) and (a mod 4=0) then max:=a;
i:=i+1;
end;
writeln ('Max:', max);
End.
Как то так
переменная N отвечает за кол-во вводимых цифр
а А за сами числа. Для удобства поменяй имена переменных, просто я так привык обозначать. Прогу проверял вроде работает. Надеюсь Удачи!