Question

Ввести массив из 10 положительных чисел. Программа должна посчитать количество чисел, которые делятся на 2 или на 3.

Написать программу PascalABC.

Answer 1

var a : array [1..10] of integer ; 

begin 
for var i:=1 to 10 do   
read(a[i]); 
var s:=a.Where(t->((t mod 2=0) or (t mod 3=0))); 
Writeln('Кол-во: ',s.Count)
end.