Question

Нужна программа полная по Паскалю.
Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от -1000 до 1000.
В цикле for найти среднее значение чисел, кратных числу M, заданному с клавиатуры.

Answer 1

Var
N,M,S,A,i,j:integer;
Begin
S:=0;
j:=0;
Write('N = ');Read(N);
Write('M = ');Read(M);
For i:= 1 to N do
   Begin
   A:=random(2001)-1000;
   Write(A,' ');
   if A mod M = 0 then
      Begin
      S:=S+A;
      j:=j+1;
      End;
   End;
WriteLn;
if j=0 then Write('Чисел, кратных ',M,' нет')
else Write('Среднее арифметическое чисел, кратных ',M,' = ',S/j);
End.