Question

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

Answer 1

........................

Answer 2

Привет! Вот решение задачи на языке Pascal ABC:

program MaxNumberDivisibleByFour;
var
  n, i, number, maxNumber: integer;
begin
  // Ввод количества чисел в последовательности
  readln(n);
  
  // Инициализация переменных
  maxNumber := 0;
  
  // Цикл для ввода чисел и поиска максимального числа, кратного 4
  for i := 1 to n do
  begin
    readln(number);
    
    // Проверка, является ли число кратным 4 и больше текущего максимального числа
    if (number mod 4 = 0) and (number > maxNumber) then
      maxNumber := number;
  end;
  
  // Вывод максимального числа, кратного 4
  writeln(maxNumber);
end.

Программа сначала считывает количество чисел в последовательности `n`. Затем инициализируется переменная `maxNumber` с начальным значением 0.

Затем следует цикл, который выполняется `n` раз. В каждой итерации цикла программа считывает число и проверяет, является ли оно кратным 4 и больше текущего максимального числа. Если это так, то значение переменной `maxNumber` обновляется.

После завершения цикла программа выводит значение переменной `maxNumber`, которое является максимальным числом, кратным 4, в последовательности.