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

Question

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

Comments

N тоже задаётся с клавы?

---

да и выдать на экран

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.

Comments

A:=random(2001)-1000;--564Ошибка времени выполнения: System.DivideByZeroException: Попытка деления на нуль.
Стек:
в Program10.Program.$Main() в C:\Users\Мой\Desktop\ОП\пр 9-отчёт\Program10.pas:строка 13
в Program10.Program.Main()

---

Какая версия Паскаля?

---

ФABC

---

ABC/Net

---

var M,S,b:integer;
N,i:integer;
SR:real;
begin
read(N);
S:=1;
for i:=1 to N do begin;
b:=random(-1000,1000);
write(b,' ');
if (b mod M=3)and(b<>0)then SR:=S/n;
end;
writeln(SR);
end.

---

мне нужно на подобии

---

В том же Паскале запускаю - работает

---

всё получилось

---

Ну можно random(2001)-1000 на random(-1000,1000); - это ничего не меняет

---

СПСИБО