двумерный массив delphi7 Вознаграждение

[warma2d]

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

Помогите пожалуйста разобраться с программкой.
Гарантированное Вознаграждение будет каждому!

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

У меня она выводит сами значения. А хотелось бы увидеть кол-во элементов положительных и отрицательных в каждой строке.

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]);
 k:=0;g:=0;
for i:=1 to n do
  for j:=1 to m do
    begin
      if x[i,j]<0 then begin
	               k:=k+1;
		       c[k]:=x[i,j];
 		     end;
      if x[i,j]>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.

Заранее Спасибо!

[Niro]

В чем разобраться? просто добавить вывод количества положительных и отрицательных элементов?
Готов помочь

[p51x]

for i:=1 to k do
  write(c[i],' ');

for i:=1 to g do
  write(d[i],' ');

Убрать.

writeln('Kolichetvo jelementov menshe nulja v kazhdoj stroke massiva X: ', k);

writeln('Kolichetvo jelementov bolshe nulja v kazhdoj stroke massiva X: ', g);

[warma2d]

p51x спасибо за ответ.

Сделал вот так, как посоветовали и всё равно не считает не считает

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]);
 k:=0;g:=0;
for i:=1 to n do
  for j:=1 to m do
    begin
      if x[i,j]<0 then begin
	               k:=k+1;
		       c[k]:=x[i,j];
 		     end;
      if x[i,j]>0 then begin
	 	       g:=g+1;
		       d[g]:=x[i,j];
		     end; end;
for i:=1 to k do
  write(c[i], ' ');


for i:=1 to g do
  write(d[i], ' ');


Readln;
end.

[Ybn2]

Напиши на почту Planetdigits@mail.ru Разберемся.

[Mad_Cat]

лови

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 begin
c[i]:=0;d[i]:=0;
  for j:=1 to m do
    begin
      if x[i,j]<0 then
	               c[i]:=c[i]+1;

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

вознаграждение получено

[Niro]

Честно говоря последний вариант от Mad_cat'a я так и не понял, так что

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..100] of integer;
d:array[1..100] 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]);
 k:=0;g:=0;
for i:=1 to n do
  for j:=1 to m do
    begin
      if x[i,j]<0 then begin
	               k:=k+1;
		       c[k]:=x[i,j];
 		     end;
      if x[i,j]>0 then begin
	 	       g:=g+1;
		       d[g]:=x[i,j];
		     end; 
     end;
writeln('Массив из элементов меньших нуля');
for i:=1 to k do
  write(c[i], ' ');
writeln('Массив из элементов больше нуля');
for i:=1 to g do
  write(d[i], ' ');
writeln('Количество элементов больше нуля ',g);
writeln(Количество элементов меньше нуля ',k);
Readln;
end.

[ArtGrek]

вот и массивы и циклы и оптимизация
program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils,
math;

Procedure Polar(a,b: real; var c,d: real);
begin
c:=sqrt(sqr(a)+sqr(b));
d:=arctan(b/a);
end;

var
XYZ, xyzP: array [1..3,1..3] of real;
i, j: integer;
sp: real;
begin

for i := 1 to 3 do
begin
writeln('Tochki ' + Chr(87 + i));
for j := 1 to 2 do
begin
write(Chr(87 + i) + IntToStr(j) + '=');
readln(XYZ[j,i]);
end;
Polar(XYZ[1,i],XYZ[2,i],xyzP[1,i],xyzP[2,i]);
xyzP[3,i] := 87 + i;
end;

writeln('Polar coord:');
for i := 1 to 3 do
writeln('Tochka ' + Chr(87 + i) +'{P=',xyzP[1,i]:2:2,'; Fi=',xyzP[2,i]:2:2,'');

writeln('Sort:');
for i := 1 to 2 do
for j := i + 1 to 3 do
if xyzP[1,i] > xyzP[1,j] then
begin
sp := xyzP[1,i];
xyzP[1,i] := xyzP[1,j];
xyzP[1,j] := sp;
sp := xyzP[2,i];
xyzP[2,i] := xyzP[2,j];
xyzP[2,j] := sp;
sp := xyzP[3,i];
xyzP[3,i] := xyzP[3,j];
xyzP[3,j] := sp;
end;

for i := 1 to 3 do
writeln('' + Chr(Trunc(xyzP[3,i])) + '{ P=',xyzP[1,i]:2:2,'; Fi=',xyzP[2,i]:2:2,'}');

readln;
end.

[Serge_Bliznykov]

ArtGrek,
Вы зачем тему 3-месячной давности, да ещё и во фрилансе поднимаете?!


flash_kpi, это Вы кому пишите? Неважно? Читать некогда? Только писать время есть?!