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

Question

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

Написать программу 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 5 = 0));  
Writeln('Cумма: ',s.Sum)
end.

Comments

Можешь помочь , просто такие команды не проходили ... Учитель не засчитывает (
Выручай :D

---

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

begin sum:=0;
for var i:=1 to 10 do begin
read(a[i]);
if a[i] mod 5 = 0 then sum+=a[i]
end;
Writeln('Cумма: ',sum)
end.

---

а так?

---

Ну посмотрим )
Пасиб ;)