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

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

Question

Информатика

Витя

31 мая, 05:38

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

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

+5

Ответы (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 5 = 0)) ;

Writeln ('Cумма: ', s. Sum)

end.

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

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

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