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.

Answer 2

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

Answer 3

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.

Answer 4

а так?

Answer 5

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