Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от - 1000 до 1000. В цикле for найти среднее значение чисел, кратных числу M, заданному с клавиатуры. Результаты выдать на экран.

pascal

Var

n, M, i, k: integer;

sum, qty: integer;

begin

readln (M) ;

n:=25;

sum:=0;

qty:=0;

randomize;

for i:=1 to n do begin

k:=random (2000) - 1000;

if (k mod M) = 0 then begin

sum:=sum+k;

Inc (qty) ;

end;

end;

if qty=0 then

writeln ('кратных ', M, ' чисел нет') else

writeln ('среднее значение чисел кратных ', M,' равно ', sum/qty) ;

end.