СРОЧНО! Напишите программу на языке Паскаль для решения задачи:
Дан целочисленный одномерный массив, состоящий из n элементов. Найти количество элементов, которые кратны 4.
На проверку нужно прислать текст кода программы, результат работы кода в виде скриншота окна программы с отображением кода и полученного результата. Программная реализация обязательна!
Answers & Comments
Ответ:
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;)