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.