1)сформировать массив каждый их их равен собственному порядковому номеру умноженому на

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

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

begin

 var a := ArrGen(ReadInteger('n='), i -gt; (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

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.