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

Паскаль. Помогите пожалуйста

Помогите пожалуйста, Придумайте массив и исполните предложенный фрагмент программы. Сформулируйте соответствующую задачу. a:=f[1]; b:=f[2]; for i:=1 to 8 do f[i]:= f[i+2]; f[9]:=a; f[10]:=b;

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= 136 12 18 24 30 36 42 48 54 60 66 72 78Среднее 42

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.