Задача: сформировать новый массив, содержащий номера строк матрицы, имеющих отрицательную сумму элементов

[Striker14]

Задача: сформировать новый массив, содержащий номера строк матрицы, имеющих отрицательную сумму элементов.


Код:

Uses Crt;
Var
n:integer; {число строк}
m:integer; {число столбцов}
A:array[1..6,1..6] of integer; {двумерный массив}
i,j:integer; {координаты элемента массива}
B:array[1..6] of integer; {новый массив}
Kol:integer; {количество элементов в новом массиве}
Sum:integer; {сумма элементов матрицы в отдельно взятой строке}

Begin
     
    Kol:=0;
     For i:=1 to n do
     Begin
     Sum:=0;
      For j:=1 to m do
      Sum:=Sum+A[i,j];
       If Sum<0 then
       Begin
       Kol:=Kol+1;
       B[Kol]=i:
       End
      If Sum>=0 then
       Begin
       i:=i+1;
       End;
       
       End;
     
     If Kol>0 then
     Begin
     Writeln ('в массиве В',Kol,' элементов');
     For i:=1 to Kol do
     Writeln (B[i]);
     End;

     If Kol=0 Then
     Begin
     Writeln ('В новом массиве нет элементов');
     End;
    
     End.

Я тестировал программу разными числами, а программа каждый раз пишет, что в новом массиве нет элементов. Например:
число строк=2
число столбцов=2
A[1,1]=4
A[1,2]=-2
A[2,1]=-5
A[2,2]=1
И после этого программа пишет что в новом массиве нет элементов, хотя должен быть номер 2.
Вывод матрицы сделан правильно, поэтому я его решил сюда не писать.

Помогите пожалуйста исправить) заранее спасибо)

[Sazary]

Я тестировал программу разными числами

Эта программа даже не компилируется из-за различных синтаксических ошибок.

Ввода m,n и самого массива вообще не вижу.

Вывод матрицы сделан правильно, поэтому я его решил сюда не писать.

А зря. Если приводите код, то приводите его полностью, чтобы его можно было сразу проверить (скомпилировав).

Не очень-то хочется дописывать самому, чтобы потом еще искать ошибки.

Чтож.. Дописал. Работает.

Uses Crt;
Var
n:integer; {число строк}
m:integer; {число столбцов}
A:array[1..6,1..6] of integer; {двумерный массив}
i,j:integer; {координаты элемента массива}
B:array[1..6] of integer; {новый массив}
Kol:integer; {количество элементов в новом массиве}
Sum:integer; {сумма элементов матрицы в отдельно взятой строке}

Begin
clrscr;
randomize;
Kol:=0;
n := 3;
m := 3;
for i:=1 to n do
 begin
 for j:=1 to m do
  begin
  A[i,j] := random(10)-3;
  write(A[i,j]:4);
  end;
  writeln;
 end;
 writeln;

For i:=1 to n do
 Begin
 Sum:=0;
 For j:=1 to m do
  Sum:=Sum+A[i,j];
 If Sum<0 then
  Begin
  Kol:=Kol+1;
  B[Kol]:=i;
  End;
 end;


If Kol>0 then
 Begin
 Writeln ('в массиве В  ',Kol,'  элементов');
 For i:=1 to Kol do
  Writeln (B[i]);
 End;

If Kol=0 Then
 Begin
 Writeln ('В новом массиве нет элементов');
 End;
readln;
End.

И еще: для кода есть тег CODE.