Question

Дан массив из n чисел. Получить сумму элементов массива, которые кратны 5
Паскаль

Answer 1

program sum;

var
Arr: array [1..10] of integer;
n,i: integer;
Sum: integer;
begin
{Заполнение массива и подсчёт суммы}
n:=10;
randomize;
Sum:=0;
for i:=1 to n do begin
  Arr[i]:=random(100);
  write(Arr[i],',');
  if Arr[i] mod 5=0 then
    Sum:=Sum+Arr[i];
end;
writeln;
writeln('сумма элементов кратных 5  равна  ', Sum);
readln;

end.