Составить одномерный массив из средних арифметических значений элементов строк матрицы

const
    NA = 20;
    NB = 30;
    MA = 30;
    MB = 40;
var
    a: Array[1..NA, 1..MA] Of Real;
    b: Array[1..NB, 1..MB] Of Real;
    s: Array[1..NB] Of Real;
    aSum, bSum: Real;
    i, j: 1..MB;
begin
    Randomize;
    WriteLn('Array A:'); aSum := 0;
    for i := 1 to NA do
    begin
        for j := 1 to MA do
        begin
            a[i, j] := Random * 198 - 99;
            Write(a[i, j]:7:2);
            if (a[i, j] > 0)
            then
                aSum := aSum + a[i, j];
        end;
        WriteLn;
    end;
    WriteLn('Array B:'); bSum := 0;
    for i := 1 to NB do
    begin
        for j := 1 to MB do
        begin
            b[i, j] := Random * 198 - 99;
            Write(b[i, j]:7:2);
            if (b[i, j] > 0)
            then
                bSum := bSum + b[i, j];
        end;
        WriteLn;
    end;
    WriteLn; WriteLn;
    if (aSum < bSum)
    then
    begin
        for i := 1 to NA do
        begin
            s[i] := 0;
            for j := 1 to MA do
            begin
                Write(a[i, j]:7:2);
                s[i] := s[i] + a[i, j];
            end;
            s[i] := s[i] / MA;
            WriteLn;
        end;
        WriteLn('SUM=', aSum:0:2);
        Write('AVR array:');
        for i := 1 to NA do
            Write(' ', s[i]:0:2);
    end
    else
    begin
        for i := 1 to NB do
        begin
            s[i] := 0;
            for j := 1 to MB do
            begin
                Write(B[i, j]:7:2);
                s[i] := s[i] + b[i, j];
            end;
            s[i] := s[i] / MB;
            WriteLn;
        end;
        WriteLn('SUM=', bSum:0:2);
        Write('AVR array:');
        for i := 1 to NB do
            Write(' ', s[i]:0:2);
    end;
end.

const am=20; an=30; bm=30; bn=40;
var
  a: array [1..am,1..an] of Real;
  b: array [1..bm,1..bn] of Real;
  c: array [1..bm] of Real;
  sa, sb, t: Real;
  cn, i, j, k: Integer;
begin
  Randomize;
  for i:=1 to am do for j:=1 to an do a[i,j]:=-10.0+Random*19.99;
  for i:=1 to bm do for j:=1 to bn do b[i,j]:=-10.0+Random*19.99;
  for i:=1 to an do for j:=1 to an do if a[i,j]>0 then sa:=sa+a[i,j];
  for i:=1 to bn do for j:=1 to bn do if b[i,j]>0 then sb:=sb+b[i,j];
  if sa<sb then begin cn:=am; 
    for i:=1 to am do begin
      t:=0; for j:=1 to an do t:=t+a[i,j]; c[i]:=t/an;
    end;
    WriteLn('A =');
    for i:=1 to am do begin
      for j:=1 to an do Write(a[i,j]:5:1); WriteLn;
    end;
    WriteLn('SUMp =',sa:0:1);
  end else begin cn:=bm;
    for i:=1 to bm do begin
      t:=0; for j:=1 to bn do t:=t+b[i,j]; c[i]:=t/bn;
    end;
    WriteLn('B =');
    for i:=1 to bm do begin
      for j:=1 to bn do Write(b[i,j]:5:1); WriteLn;
    end;
    WriteLn('SUMp =',sb:0:1);
  end;
  i:=cn;
  repeat
    k:=1;
    for j:=1 to i-1 do
      if c[j+1]>c[j] then begin
        k:=j; t:=c[j+1]; c[j+1]:=c[j]; c[j]:=t;
      end;
    i:=k;
  until k=1;
  WriteLn('C ='); for j:=1 to cn do Write(c[j]:5:1); WriteLn;
end.