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

[dimka660i]

Имеется задача:
Определить количество отрицательных элементов каждой строки матрицы Х и запомнить их в массиве F.

я тут вот начал что то писать:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, math;
  type
  Matrica = array [1..5,1..5] of integer;
  var
  A:Matrica;
  n, m, i, j, S, Smin, Smax: integer;

begin
writeln ('n');
readln(n);
writeln ('m');
readln(m);
??????????
  { TODO -oUser -cConsole Main : Insert code here }
end.

Но по моему тут все неправильно..
Подскажите знающие люди что надо прописать)

[Alex Cones]

http://www.programmersforum.ru/showthread.php?t=70310

[dimka660i]

Alex Cones спасиб, но я там ниего не нашел насчет - количества отрицательных элементов каждой строки матрицы Х и запомнить их в массиве F ((
и вообще что за "запомнить их в массиве F"?

[Alex Cones]

Проходимся по очереди в строке по каждому элементу и если он меньше 0, то N:=N+1;
Запомнить их в массиве F означает:

Var
 F:Array[1..5] of Integer;

И проходясь поочередно по каждой строке заносишь кол-во отрицательных в F[M], где M - номер строки.

[OrcXCyber]

не запомнить, а записать в массив F

[danekne]

Это значит - что все отрицательные элементы нужно переместить в одномерный массив F.

[dimka660i]

Спасибо вам!! теперь бы код состряпать
Мб кто нибудь поможет)))

[dimka660i]

Вот код, но он что то не хочет работать в чем может быть неправильность?

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;
  Var
  f,a: array[1..100, 1..100] of integer;

  m, n, i, j,k: integer;

begin
write('m =');
read(m);
write('n =');
read(n);
for i:=1 to m do for j:=1 to  n do
begin
writeln('A[',i,',',j,']:=');
readln (A[i,j]);
  { TODO -oUser -cConsole Main : Insert code here }
end;
for i:=1 to n do
f[i]:= count;
count:=0;
end;
for j:=1 to m do
if a [i,j]<0 then inc (count)
end;

end.

Подскажите пожалуйста...

[dimka660i]

Неужели никто не знает=(((

[OrcXCyber]

Сообщение от Alex Cones

Проходимся по очереди в строке по каждому элементу и если он меньше 0, то N:=N+1;
Запомнить их в массиве F означает:

Var
 F:Array[1..5] of Integer;

И проходясь поочередно по каждой строке заносишь кол-во отрицательных в F[M], где M - номер строки.

ты уверен, что запомнить - это определение переменной ? ))