Икт Найти сумму чисел кратных 5 в интервале 1 до n

Question

Информатика

Васяня

8 июля, 02:02

Икт Найти сумму чисел кратных 5 в интервале 1 до n

+1

Ответы (1)

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

Микола · Answer 1

Program gt;

var a:array[1 ... 1000]of integer;

i, s, n:integer;

begin

read (n);

s:=0;

for i:=1 to n do

begin

read (a[i]);

if (a[i] mod 5=0) then s:=s+a[i];

end;

writeln (s);

end.