Question

Заполните массив случайными числами в интервале [0,100] и найдите среднее арифметическое его значений. Пример: Массив: 1 2 3 4 5 Среднее арифметическое 3.000 Язык програмирования паскаль

Answer 1

Var
m:array[1..10000] of integer;
i,s,n:longint;
a:real;
begin
randomize;
writeln('Введите число элементов');
read(n);

writeln('Массив:');
for i:=1 to n do
 begin
 m[i]:=random(101);
write(m[i],' ');
 s:=s+m[i];
 end;

a:=s/n;
writeln('Среднее арифметическое: ',a:2:3);
end.

Answer 2

Конечно, вот пример кода на языке программирования Pascal для заполнения массива случайными числами в интервале [0, 100] и вычисления среднего арифметического его значений:

pascalCopy code
program AverageArray;
var
  arr: array[1..10] of integer; // Массив из 10 элементов
  sum, i: integer;
  average: real;

begin
  randomize; // Инициализируем генератор случайных чисел

  // Заполняем массив случайными числами в интервале [0, 100]
  for i := 1 to 10 do
  begin
    arr[i] := random(101); // Генерируем случайное число от 0 до 100
  end;

  // Выводим элементы массива
  writeln('Массив:');
  for i := 1 to 10 do
  begin
    write(arr[i], ' ');
  end;

  // Вычисляем сумму элементов массива
  sum := 0;
  for i := 1 to 10 do
  begin
    sum := sum + arr[i];
  end;

  // Вычисляем среднее арифметическое
  average := sum / 10;

  writeln;
  writeln('Среднее арифметическое: ', average:0:3);
end.

Этот код создает массив из 10 элементов, заполняет его случайными числами в интервале [0, 100], вычисляет сумму элементов и затем среднее арифметическое.