Задан массив из N элементов. Вычислить сумму тех элементов, которые кратны 5.
Answers & Comments
Listr
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.
Answers & Comments
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.