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



[email protected] в категроии Информатика, вопрос открыт 17.03.2018 в 09:35

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

1 ответ



Мадина , ответ добавлен 17.03.2018 в 09:53

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.

Оставлять ответы могут только авторизированные пользователи.
Зарегистрируйтесь или авторизируйтесь на сайте чтобы оставить ответ на вопрос.