Question

Найти среднее арифметическое 6 рандомных чисел до 100 в массиве.паскаль

Answer 1

Program zadacha;vara: array[1..6] of integer;i: integer;sr: real;
beginfor i:=1 to 6 do begina[i]:=random(100);write(a[i]:6);end;
sr:=0;for i:=1 to 6 do beginsr:=sr+a[i];end;
writeln();sr:= sr/6;writeln('sr=', sr:6:2);end.

Answer 2

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

program Average;
var
  arr: array[1..6] of integer;
  sum, average: real;
  i: integer;
begin
  Randomize;
  
  // Заполнение массива случайными числами
  for i := 1 to 6 do
    arr[i] := Random(100);
  
  // Вычисление суммы элементов массива
  sum := 0;
  for i := 1 to 6 do
    sum := sum + arr[i];
  
  // Вычисление среднего арифметического
  average := sum / 6;
  
  // Вывод результата
  writeln('Массив:');
  for i := 1 to 6 do
    write(arr[i], ' ');
  writeln;
  writeln('Среднее арифметическое:', average:0:2);
end.

Этот код создает массив `arr` размером 6 и заполняет его случайными числами от 0 до 100. Затем он вычисляет сумму всех элементов массива и делит ее на количество элементов (6) для получения среднего арифметического. Результат выводится на экран.

Примечание: Для работы с генерацией случайных чисел в Паскале, необходимо использовать функцию `Randomize` для инициализации генератора случайных чисел.

Ниже приведен пример вывода программы:

Массив:
34 12 56 78 90 23
Среднее арифметическое: 49.83

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