Question

1)сформировать массив каждый их них равен своему порядковому номеру умноженому на 6. Найти среднее арифметическое всех элементов массива. Паскаль. Помогите пожалуйста

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);

 a.Println;

 Println('Среднее', a.Average)

end.

n= 13

6 12 18 24 30 36 42 48 54 60 66 72 78

Среднее 42

Answer 2

var a:array[1..50] of integer;

i:integer;  z:real;

begin

     for i:=1 to random(30) do

     begin

          a[i]:=i*6;

          z:=z+a[i];

          write(a[i],' ');

     end;

     writeln;

     write('Среднее арифметическое элементов массива=',z/50);

end.

Answer 3

Для решения этой задачи вам понадобится написать код на языке Паскаль (Pascal). В Pascal массивы индексируются с 0, поэтому первый элемент будет иметь индекс 0, второй - 1 и так далее. Ниже приведен пример кода для формирования массива и вычисления среднего арифметического его элементов:

pascalCopy code
program AverageArray;

const
  ArraySize = 10; // Здесь указывается размер массива

var
  MyArray: array[0..ArraySize-1] of Integer;
  i, Sum, Average: Integer;

begin
  // Формируем массив
  for i := 0 to ArraySize - 1 do
    MyArray[i] := i * 6;

  // Вычисляем сумму элементов массива
  Sum := 0;
  for i := 0 to ArraySize - 1 do
    Sum := Sum + MyArray[i];

  // Вычисляем среднее арифметическое
  Average := Sum div ArraySize;

  // Выводим результаты
  writeln('Массив:');
  for i := 0 to ArraySize - 1 do
    writeln('MyArray[', i, '] = ', MyArray[i]);

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

В этом примере мы создали массив MyArray размером 10 элементов и заполнили его элементы значениями, равными их порядковому номеру, умноженному на 6. Затем мы нашли сумму всех элементов массива и вычислили среднее арифметическое, поделив эту сумму на количество элементов в массиве.

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