Question

напишите программу, которая в последовательности натуральных чисел определяет максимальное число, кратное 4. Программа получает на вход количество чисел в последовательностич а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число - максимальное число и кратное 4.
Входные данные:3, 8, 16, 11
Выходные данные:16.
​Паскаль

Answer 1

заводим переменную, которая будет отвечать за максимум, пусть это будет ans, изначально присвоим ей максимально маленькое значение, пусть -1000000000

затем запускаем цикл, который исполнится N(кол-во элементов посл-ти) раз

На каждой итерации вводим текущее число K(элемент посл-ти)

Если k % 4 == 0 (если остаток от деления k на 4 равен нулю), то ans = max(ans,k) (в ans записываем максимум из ans и текущего числа)

Выводим ans

Answer 2

Ответ:не знаю точно попробуй это:

var i,n,k,m:integer; begin write('n: '); readln(n); m:=0; writeln('Введите ',n,' чисел'); for i:=1 to n do begin read(k); if k mod 4=0 then inc(m) end; writeln(m); readln; readln end.