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

Question

Информатика

Ротя

21 мая, 13:23

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

+4

Ответы (1)

Знаете ответ?

Алексинка · 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.