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

Question

Дан массив,состоящий из 20 случайных чисел. Подсчитайте сумму элементов кратных 5.
РЕШИТЕ ПОЖАЛУЙСТА!! паскаль

Answer 1

Массив создается и заполняется рандомными числами до 10

var
massive: array[1..20] of Integer;
i:Integer ;
summ:integer;
begin
WriteLn('все элементы');
for i:=1 to 20 do
begin
massive[i]:=Random(100);
write(massive[i],', ');
end;

for i:=1 to 20 do
begin
if massive[i] mod 5 = 0 then
summ:=summ+massive[i];
end;
writeln('сумма: ',summ);
end.