begin
var a := ArrGen(ReadInteger('n='), i -> (i + 1) * 6);
a.Println;
Println('Среднее', a.Average)
end.
var a:array[1..50] of integer;
i:integer; z:real;
for i:=1 to random(30) do
a[i]:=i*6;
z:=z+a[i];
write(a[i],' ');
end;
writeln;
write('Среднее арифметическое элементов массива=',z/50);
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Среднее 42var 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.