Question

На­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­стиN на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное число, крат­ноНа­пи­ши­те про­грам­му, ко­то­рая в по­сле­до­ва­тель­но­сти
N на­ту­раль­ных чисел опре­де­ля­ет мак­си­маль­ное
число, крат­ное 4. Про­грам­ма по­лу­ча­ет на вход N-ное ко­ли­че­ство чисел.
В по­сле­до­ва­тель­но­сти все­гда име­ет­ся число, крат­ное 4. Про­грам­ма
долж­на вы­ве­сти одно число — мак­си­маль­ное число, крат­ное 4.

Answer 1

var
  i, n, k, max: integer;

begin
  readln(n);
  max := Integer.MinValue;
  for i := 1 to n do
  begin
    readln(k);
    if (k mod 4 = 0) then
      max := System.Math.Max(max, k);
  end;
  writeln(max);
end.