Нужна программа полная по Паскалю. Дано 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.
Не нашли ответ?
Похожие вопросы