Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 6. Программа получает на вход количество чисел в последовательности а затем сами числа. В последовательности всегда имеется число кратное 6. в паскале
var
n, i, a, z: integer;
begin
z := 0;
read(n);
for i := 1 to n do
begin
read(a);
if a mod 6 = 0 then
z := z + 1
end;
writeln(z);
end.
// PascalABC.NET
begin
var n := ReadInteger;
ReadSeqInteger(n).Count(p -> p mod 6 = 0).Print
end.