uses crt;
const
    n=7;
    m=4;
var
    i,j,temp:byte;
    Matrix:array[1..n,1..m] of ShortInt;
begin
    ClrScr;
    Randomize;
    for i:=1 to n do
       begin
          for j:=1 to m do
             begin
                Matrix[i][j]:=Random(11)-5;
                Write(Matrix[i][j]:3);
             end;
          WriteLn;
       end;
    WriteLn;
    for i:=1 to n do
       begin
          temp:=0;
          for j:=1 to m do
             if Matrix[i][j]>=0 then
                Inc(temp);
          if Temp>m shr 1 then
             Write(i:3);
       end;
    ReadKey;
end.