двумерный массив delphi7

[warma2d]

Здравствуйте!

Никак не получается решить
Не могу никак разобраться вот с такой задачкой:

Вычислить количество положительных и отрицательных элементов каждой строки матрицы B(nxm) . Записать эту информацию в два вектора: C и D

  
program Rabota619;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var

i,j,m,s,n,h:integer; //rabo4aya peremennaya
x:array [1..10,1..10] of integer; // Massiv 1
c:array[1..10] of integer;
d:array[1..10] of integer;

begin

writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(x[i,j]);

for i:=1 to n do begin
   if c[i]>0 then
   c[i]:=c[i]+x[i,j];
   write(x[i,j]:5);
  end; writeln;

for i:=1 to n do begin
   if d[i]<0 then
   d[i]:=d[i]+x[i,j];
    end; writeln;


 i:=1;         writeln;
 for i:=1 to n do begin
   write(c[i]);
   write(d[i]);
 end;writeln;

Readln;
end.

Помогите пожалуйста разобраться с этой задачкой

[RUSt88]

а что не получается конкретно? в чем ошибки?

[Niro]

Эх, и где вы этот код только взяли...

for i:=1 to n do
  for j:=1 to m do
    begin
      if x[i]<0 then begin
	               k:=k+1;
		       c[k]:=x[i,j];
 		     end;		
      if x[i]>0 then begin
	 	       g:=g+1;
		       d[g]:=x[i,j];
		     end;
writeln('Количетво элементов меньше нуля в каждой строке массива X');
for i:=1 to k do
  write(c[i],' ');
writeln('Количетво элементов больше нуля в каждой строке массива X');
for i:=1 to g do
  write(d[i],' ');

И кстати, ввод лучше сделать рандомный, а то выберешь массив 7*6 и заколебешься вводить 42 элемента

[warma2d]

Niro, огромное спасибо за ответ)

исправил так, но не работает

program Rabota619;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  math;

Var

i,j,m,s,n,h,k,g:integer; //rabo4aya peremennaya
x:array [1..10,1..10] of integer; // Massiv 1
c:array[1..10] of integer;
d:array[1..10] of integer;

begin

writeln('V-te kol-vo n <=10');
readln(n);
writeln('V-te kol-vo m <=10');
readln(m);
writeln ('v-te massiv 1 ');
for i:=1 to n do
for j:=1 to m do
readln(x[i,j]);

for i:=1 to n do
  for j:=1 to m do
    begin
      if x[i]<0 then begin
	               k:=k+1;
		       c[k]:=x[i,j];
 		     end;
      if x[i]>0 then begin
	 	       g:=g+1;
		       d[g]:=x[i,j];
		     end; end;
writeln('Kolichetvo jelementov menshe nulja v kazhdoj stroke massiva X');
for i:=1 to k do
  write(c[i],' ');
writeln('Kolichetvo jelementov bolshe nulja v kazhdoj stroke massiva X');
for i:=1 to g do
  write(d[i],' ');


Readln;
end.

Но сейчас он ругается, что неправильный тип данных.
Сразу показывает после then ошибку. И после второго then.
но в чем ошибка не знаю

естественно сюда добавил k,g

[Niro]

Вот блин забыл, что массив то у нас двумерный, так что в строчке исправьте

if x[i]<0 then begin

на

 if x[i,j]<0 then begin

и во второй проверке

x[i,j]>0 then