Дан массив,состоящий из 20 случайных чисел. Подсчитайте сумму элементов кратных 5. решите...

Question

Дан массив,состоящий из 20 случайных чисел. Подсчитайте сумму элементов кратных 5. решите пожалуйста

Answer 1

Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.