program fgg; uses crt; type massiv=array[1..6,1..6] of integer; rez=array[1..6] of byte; var a:massiv; kolp,kolo,koln:rez; i,j:integer; begin clrscr; randomize; for i:=1 to 6 do for j:=1 to 6 do a[i,j]:=random(201)-100; for j:=1 to 6 do for i:=1 to 6 do begin if a[i,j]>0 then inc(kolp[j]); if a[i,j]=0 then inc(koln[j]); if a[i,j]<0 then inc(kolo[j]); end; for i:=1 to 6 do begin for j:=1 to 6 do write(a[i,j]:5); writeln end; writeln(' KOLP'); for i:=1 to 6 do write(kolp[i]:3); writeln; writeln(' KOLN'); for i:=1 to 6 do write(koln[i]:3); writeln; writeln(' KOLO'); for i:=1 to 6 do write(kolo[i]:3); readkey end.