program aaa;
var A: array[1..100,1..100] of integer; 
    B,C: array[1..100] of integer;
    D: array[1..100] of real;
    m,n,s,p: integer; sa,x: real; i,j: byte;
begin 
 randomize; 
 write ('Введите M и N:   ');
 readln (m,n);
 writeln;
 writeln ('Исходный массив:');
 s:=0; p:=1; sa:=MaxReal;
 for i:=1 to m do begin
    for j:=1 to n do begin
        A[i,j]:=random(0,11);
        write (A[i,j]:5);
        s:=s+A[i,j];
        p:=p*A[i,j]; 
        if j>1 
          then begin
            x:=(A[i,j]+A[i,j-1])/2;
            if sa>x then sa:=x;
          end;
    end;
    B[i]:=s;
    C[i]:=p;
    D[i]:=sa;
    s:=0; p:=1; sa:=MaxReal;
    writeln
  end;
  writeln;
  writeln ('Массив B - суммы строк:');
    for i:=1 to m do 
       write (B[i]:7);
  writeln;
  writeln;
  writeln ('Массив C - произведения строк:');
    for i:=1 to m do 
       write (C[i]:7);
  writeln;
  writeln;
  writeln ('Массив D - наименьшие средние арифметические строк:');
    for i:=1 to m do 
       write (D[i]:7);
end.    

--------------------

Введите M и N:   5 4

Исходный массив:
    2    6   10   11
   10    6    4    7
    8    6    3    7
    2    9    8    4
    6    7    9    5

Массив B - суммы строк:
     29     27     24     23     27

Массив C - произведения строк:
   1320   1680   1008    576   1890

Массив D - наименьшие средние арифметические строк:
      4      5    4.5    5.5    6.5