Question

Задан массив из N элементов. Вычислить сумму тех элементов, которые кратны 5.

Answer 1

Program t1;
Var A: array [1..1000] of integer; N, i: Byte; s: Longint;
Begin
Readln (N);
For i:= 1 to N do
Begin
Readln (A[i]);
If A[i] mod 5 = 0 then
s:=s+A[i];
End;
Write (s);
Readln;
End.