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

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

Question

Информатика

Геруня

16 августа, 01:43

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

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

+1

Ответы (1)

Знаете ответ?

Селиван · 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.

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

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

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