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

Я не намерена продолжать с вами общении,если я отметила,что ваш ответь не верен то примите это к сведению,а не пытайтесь доказать,что ваш ответ правилен.

#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;}   

1. Современное решение "в одну строку" (тут больше и не надо)// PascalABC.NET 3.2, сборка 1417 от 28.03.2017// Внимание! Если программа не работает, обновите версию!begin  Writeln(ReadSeqInteger(ReadlnInteger).Where(k->k mod 6=0).Count)end.Пример318 26 2422. Школьное решение в стиле ТурбоПаскаль 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.