Question

СРОЧНО! Напишите программу на языке Паскаль для решения задачи:

Дан целочисленный одномерный массив, состоящий из n элементов. Найти количество элементов, которые кратны 4.

На проверку нужно прислать текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата. Программная реализация обязательна!

Answer 1

Ответ:

program z;

var m:array[1..32767] of integer;

n,i,k:integer;

begin

randomize;

k:=0;

read(n);

for i:=1 to n do

begin

m[i]:=random(20)+1;

if m[i] mod 4 = 0 then k:=k+1;

write(m[i],' ')

end;

writeln;

write(k)

end.

скрин

Объяснение:

для проверки кратности используем операцию mod (остаток от целочисленного деления)

в программе используем циклс параметром (for i:=1 to n do) и условный оператор (if m[i] mod 4 = 0 then k:=k+1;)