Question

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

Answer 1

#include <iostream>

int main() {
 int n, c = 0;
 for(std::cin >> n; n > 0;  n--) {
   int a;
   std::cin >> a;
   if(a%6 == 0) c++;
  }
  std::cout << c << std::endl;
}
   

Answer 2

1. Современное решение "в одну строку" (тут больше и не надо)

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln(ReadSeqInteger(ReadlnInteger).Where(k->k mod 6=0).Count)
end.

Пример
3
18 26 24
2

2. Школьное решение в стиле ТурбоПаскаль 1983г

var
  n,i,k,a:integer;
begin
  Readln(n);
  k:=0;
  for i:=1 to n do
    begin
    Read(a);
    if a mod 6=0 then k:=k+1
    end;
  Writeln(k)
end.