Question

ПАСКАЛЬ. Заполните массив случайными числами в интервале [-50,75] и найдите среднее арифметическое его значений. Решите задачу используя процедуру.

Answer 1

Генерация массива производится в основной программе, высчитывание среднего арифметического и его вывод - в процедуре.

Answer 2

Вот пример кода на языке программирования Pascal, который заполняет массив случайными числами в интервале [-50, 75] и находит среднее арифметическое его значений, используя процедуру:

pascalCopy code
program AverageArray;

const
  N = 10; // Размер массива

type
  TArray = array[1..N] of Integer;

procedure FillArrayRandom(var arr: TArray);
var
  i: Integer;
begin
  Randomize;
  for i := 1 to N do
    arr[i] := Random(126) - 50; // Генерируем случайное число в интервале [-50, 75]
end;

function CalculateAverage(arr: TArray): Real;
var
  i, sum: Integer;
begin
  sum := 0;
  for i := 1 to N do
    sum := sum + arr[i];
  CalculateAverage := sum / N;
end;

var
  myArray: TArray;
  average: Real;

begin
  FillArrayRandom(myArray);
  average := CalculateAverage(myArray);
  
  writeln('Случайно заполненный массив:');
  for i := 1 to N do
    writeln('myArray[', i, '] = ', myArray[i]);
  
  writeln('Среднее арифметическое значений в массиве: ', average:0:2);
end.

В этом коде мы сначала создаем процедуру FillArrayRandom, которая заполняет массив случайными числами в интервале [-50, 75]. Затем у нас есть функция CalculateAverage, которая вычисляет среднее арифметическое значений массива. В основной программе мы вызываем процедуру FillArrayRandom, а затем вычисляем среднее значение и выводим результат на экран.