VudonrisНапишите программу, которая в последовательности натуральных чисел определяет макси¬мальное число, кратное 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Программа должна вывести одно число — максимальное число, кратное 4.
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
//pascal
var
N, i, x, _max : integer;
begin
_max := -1;
write('N=');
readln(N);
for i := 1 to N do
begin
readln(x);
if (x mod 4 = 0) and (x > _max) then
_max := x;
end;
writeln('MAX:',_max);
end.
50
NilalisЧтобы ответить необходимо зарегистрироваться.
