Из представленных действий составьте программу, которая получает на вход количество чисел в последовательности, а затем сами числа. В последовательности натуральных чисел определить максимальное число, кратное 4. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, кратное 4. var n, a, k, g: integer; begin g:=0; readln(n); for k:=1 to n do begin readln(a); if (a mod 4 = 0) and (a>g) then g:=a; end; writeln(g); end.
Задание

Из представленных действий составьте программу, которая получает на вход количество чисел в последовательности, а затем сами числа. В последовательности натуральных чисел определить максимальное число, кратное 4. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число — максимальное число, кратное 4.

  • var n, a, k, g: integer;
  • begin
  • g:=0; readln\(n\);
  • for k:=1 to n do
  • begin
  • readln\(a\);
  • if \(a mod 4 = 0\) and \(a\\gt g\) then
  • g:=a;
  • end;
  • writeln\(g\);
  • end.