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.

Answer 2

Для решения данной задачи на языке Паскаль можно использовать следующую программу:

program AverageMultipleM;

var
  N, M, number, sum, count: integer;
  average: real;

begin
  sum := 0;
  count := 0;

write('Введите количество чисел N: ');
  readln(N);

write('Введите число M: ');
  readln(M);

for var i := 1 to N do
  begin
    write('Введите число: ');
    readln(number);

if number mod M = 0 then
    begin
      sum := sum + number;
      count := count + 1;
    end;
  end;

if count > 0 then
  begin
    average := sum / count;
    writeln('Среднее значение чисел, кратных M: ', average:0:2);
  end
  else
    writeln('Нет чисел, кратных M.');

end.

Описание программы: 1. Объявляем переменные `N` (количество чисел), `M` (заданное число), `number` (вводимое число), `sum` (сумма чисел, кратных `M`), `count` (количество чисел, кратных `M`), `average` (среднее значение чисел, кратных `M`). 2. Инициализируем `sum` и `count` нулевыми значениями. 3. Считываем количество чисел `N` с клавиатуры. 4. Считываем число `M` с клавиатуры. 5. В цикле `for` от 1 до `N` выполняем следующие действия: - Считываем число `number` с клавиатуры. - Если `number` кратно `M`, то увеличиваем `sum` на `number` и увеличиваем `count` на 1. 6. Если `count` больше 0, то вычисляем среднее значение `average` как `sum / count` и выводим его на экран с двумя знаками после запятой. 7. Если `count` равно 0, то выводим сообщение "Нет чисел, кратных M.".

Примечание: Предоставленный код является примером программы на языке Паскаль для решения данной задачи. Пожалуйста, убедитесь, что у вас установлена среда разработки, поддерживающая язык Паскаль, чтобы запустить эту программу.