Предмет: Информатика,
автор: Vadim20056
Даю 100 баллов за решение! Надо решить через repeat
Приложения:

Ответы
Автор ответа:
0
Ответ:
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 отвечает за кол-во вводимых цифр
а А за сами числа. Для удобства поменяй имена переменных, просто я так привык обозначать. Прогу проверял вроде работает. Надеюсь помог. Удачи!
Похожие вопросы
Предмет: Русский язык,
автор: ahulchaeva
Предмет: Українська література,
автор: GERMAN04
Предмет: Русский язык,
автор: olgayla
Предмет: Математика,
автор: Angelochek02