ЛЕГКАЯ ЗАДАЧА НА ПАСКАЛЕ (Я ТУПАЯ)
))))
Тема:цикличные алгоритмы.
Даны n чисел,найти кол-во кратных 2 и 5;
Найти кол-во кратных 3,но чтобы оно не было четным;
Все 2 условия в одной программе

Решение с массивомvar a: array[1..1000] of longint;i, n, k1, k2: longint;begink1 := 0;k2 := 0;read(n);for i := 1 to n dobeginread(a[i]);if (a[i] mod 2 = 0) and (a[i] mod 5 = 0) then k1 := k1 + 1;if (a[i] mod 3 = 0) and (a[i] mod 2 = 1) then k2 := k2 + 1;end;writeln(k1, ' ', k2);end.Решение без массиваvar x, i, n, k1, k2: longint;begink1 := 0;k2 := 0;read(n);for i := 1 to n dobeginread(x);if (x mod 2 = 0) and (x mod 5 = 0) then k1 := k1 + 1;if (x mod 3 = 0) and (x mod 2 = 1) then k2 := k2 + 1;end;writeln(k1, ' ', k2);end.