uses crt;
const
     HEIGHT = 3;
     WIDTH = 11;
     MIN = -10;
     MAX = 10;
var
   Z: array [1..HEIGHT] of array[1..WIDTH] of Integer;
   i, j, k: Integer;
   outFile: Text;

function findMin: Integer;
var
   m: Integer;
begin
     m := Z[1][1];
     for i := 1 to HEIGHT do
         for j := 1 to WIDTH do
             if Z[i][j] < m then
                m := Z[i][j];
     findMin := m;
end;

function sumPos(row: Integer): Integer;
var
   sum: Integer;
begin
     sum := 0;
     for j := 1 to WIDTH do
         if Z[row][j] > 0 then
            sum := sum + Z[row][j];
     sumPos := sum;
end;

function rowWithMin: Integer;
var
   m: Integer;
begin
     m := findMin;
     for i := 1 to HEIGHT do
         for j := 1 to WIDTH do
             if Z[i][j] = m then
             begin
                  rowWithMin := i;
                  exit;
             end;
end;

begin
     clrscr;

     assign(outFile, 'out.txt');
     rewrite(outFile);

     randomize;
     for i := 1 to HEIGHT do
     begin
         for j := 1 to WIDTH do
         begin
             k := random(MAX-MIN+1) + MIN;
             Z[i][j] := k;
             write(k:5);
             write(outFile, k:5);
         end;
         writeln;
         writeln(outFile);
     end;

     writeln(sumPos(rowWithMin));
     writeln(outFile, sumPos(rowWithMin));

     writeln(rowWithMin);
     writeln(outFile, rowWithMin);

     close(outFile);
end.