Массив: Составить массив, каждый элемент которого равен среднему арифметическому элементов массивов A B C...

const n=8;
var
  a,b,c:array[1..n] of integer;
  d:array[1..n] of real;
  i:integer;
begin
  randomize;
  writeln('A':5,'B':5,'C':5,'D':10);
  for i:=1 to n do begin
    a[i]:=random(100)-50;
    b[i]:=random(50)-25;
    c[i]:=random(100);
    write(a[i]:5,b[i]:5,c[i]:5);
    d[i]:=(a[i]+b[i]+c[i])/3;
    writeln(d[i]:10:4);
  end;
  end.

const
  n = 8;
 
var
  a, b, c, d: array[1..n] of real;
  i, j: integer;
 
begin
  randomize;
  writeln('Исходные массивы: А B C');
  for i := 1 to n do
  begin
    a[i] := -n div 2 + n * random;
    b[i] := -n div 2 + n * random;
    c[i] := -n div 2 + n * random;
    d[i] := (a[i] + b[i] + c[i]) / 3;
    writeln(a[i]:8:2, b[i]:8:2, c[i]:8:2);
  end;
  writeln('Массив D:');
  for i := 1 to n do
    write(d[i]:8:2);
end.

var
  a := ArrRandomInteger(8);
  b := ArrRandomInteger(8);
  c := ArrRandomInteger(8);
begin
  a.Println;
  b.Println;
  c.Println;
  var d := ArrGen(8, i -> Arr(a[i],b[i],c[i]).Average);
  d.Println
end.

begin
  var Count := ReadlnInteger();
  var (A, B, C) := (ReadArrInteger(Count), ReadArrInteger(Count), ReadArrInteger(Count));
  A.Select((x, i) -> (A[i] + B[i] + C[i]) / 3).Println();
end.

begin
  var Count := ReadlnInteger();
  var (A, B, C) := (ReadArrInteger(Count), ReadArrInteger(Count), ReadArrInteger(Count));
  ArrGen(Count, i -> (A[i] + B[i] + C[i]) / 3).Println();
end.