Дан массив А (40), заполненный случайными числами в диапазоне от 0 до 1000. Найти сумму элементов кратных заданному к.

Program Ok;

const n=40;

var

A:array[1 ... n] of integer;

sum, i, k:integer;

begin

randomize;

read (k) ;

sum:=0;

for i:=1 to n do

A[i]:=random (1000) ;

for i:=1 to n do

begin

if (A[i] mod k = 0) then

sum:=sum+A[i];

end;

write ('Сумма элементов массива кратных ', k, ' = ', sum) ;

end.