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

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

Question

Информатика

Плакида

27 июня, 05:19

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

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

+4

Ответы (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.