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

Question

Информатика

Марьянка

4 января, 12:09

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

+3

Ответы (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.