11
Аноним
Информатика
08 марта 21:06

Напишите программу в паскале, которая в последовательности натуральных чисел определяет максимальное число, кратное 4.

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

Ответ или решение1

var x: array[1..1000] of integer;

x1: array[1..1000] of integer;

n, i, j: integer;

begin

writeln('Введите количество элементов в последовательности');

readln(n);

if n > 1000 then writeln('Количество элементов больше 1000!') else

begin

for i := 1 to n do x[i] = random(30000);

for i := 1 to n do if x[i] div 4 = 0 then begin

j := j + 1;

x1[i] := x[i];

end;

for i:= 1 to j do writeln(x1[i]:4);

end;

end.

0 / 10000
ВходРегистрация

Вход

или

Регистрация