Напишите программу, которая в последовательности - вопрос №13014357 от filanovich1984 03.09.2022 22:55

Question

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

filanovich1984 · Answer

var

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

N: integer;

i: integer;

Product: integer;

begin

cnt := 0;

write('Введите количество элементов в массиве: ');

readln(N);

write('Введите элементы массива: ');

for i:=1 to N do

begin

read(a[i]);

if (a[i] mod 4 = 0) then

begin

cnt = cnt + 1;

end;

write('Количество элементов кратных 4: ', cnt);

end.