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

Нужна программа полная по Паскалю. Дано N целых чисел, полученных от датчика случайных чисел в диапазоне от -1000 до 1000. В цикле for найти среднее значение чисел, кратных числу M, заданному с клавиатуры.
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы