матрица в паскале

[flashpoint412]

Ввести матрицу SIR порядка CxK. Определить количество строк, где число положительных элементов больше числа отрицательных.

помогите пожалуйста, т.к. в матрицах я не силен, да и в паскале вцелом тоже))

[DoDge_VipeR]

st:=0;
for i:=1 to с do begin
ko:=0;kp:=0;
for j:=1 to k do begin
if sir[i,j]>0 then inc(kp);
if sir[i,j]<0 then inc(ko);
end;
if kp>ko then inc(st);
end;
writeln(st);

[flashpoint412]

что такое st?

[ROMA2PVT]

количество строк с большим числом +.

[flashpoint412]

а кр и ко ?

[ROMA2PVT]

кол-во положительных и отрицательных элементов каждой строки.

[flashpoint412]

понял)спасибо)

[flashpoint412]

а можно прогу с самого начала, а то чет не то немного выходит....

[ROMA2PVT]

uses
  crt;
var
  SIR:array [1..100,1..100] of integer;
  i,j,c,k,kp,ko,st:integer;
begin
randomize;
  write('Количество строк: ');
  readln(c);
  write('Количество столбцов:');
  readln(k);
      writeln('массив A: ');
  for i:=1 to c do
    begin
    for j:=1 to k do
    begin
      SIR[i,j]:=random(10)-5;
      write(SIR[i,j]:3,' ');
    end;
    writeln;
    end;
    writeln;
 st:=0;
for i:=1 to c do
begin
ko:=0;
kp:=0;
for j:=1 to k do
begin
if SIR[i,j]>0 then
inc(kp);
if SIR[i,j]<0 then
inc(ko);
end;
if kp>ko then inc(st);
end;
writeln('Количество строк с большим числом положительных элементов: ',st);
end.

[flashpoint412]

благодарю)))