многомерные массивы в Delphi

[Elfanta]

Всем доброй ночи! Подскажите кто понимает...никак не могу решить.

Тема "многомерные массивы"
Размер массива A [5x3] , тип элементов real . В матрице найти количество отрицательных елементов каждого рядка.

Заранее спасибо.

[ZaRDaK]

Оставь аську, обьясню

[Vikenty]

Просто найти количество числа -1 -2 -3 -4 -5 -6 -7 -8 и т. д. ?

[Elfanta]

Сообщение от Vikenty

Просто найти количество числа -1 -2 -3 -4 -5 -6 -7 -8 и т. д. ?

Да. Я пыталась что то сделать но не получается.

ZaRDaK аську могу оставить но я в ней появляюсь редко.

[ZaRDaK]

вот код

...
Var i , ii , c : Integer;
A: array [0..5] of array [0..3] of Real;
begin
c := 0;
for ii := 0 to 4 do 
 for i := 0 to 2 do if (A[ii][i] < 0) then Inc(c);
end;
...

За объяснениями в аську)

[Vikenty]

Проверьте этот код:

function GetSCount(Matrix: array of real; Row,Col: LongInt): integer;
var
i,j,k,l: integer;
s: string;
begin
for i:=0 to Row do
begin
for j:=0 to Col do
begin
s:=FloatToStr(Matrix[i,j]);
if s[1]='-' then k:=k+1;
end;
end;
GetSCount:=k;
end;

[Elfanta]

Сообщение от ZaRDaK

вот код

...
Var i , ii , c : Integer;
A: array [0..5] of array [0..3] of Real;
begin
c := 0;
for ii := 0 to 4 do 
 for i := 0 to 2 do if (A[ii][i] < 0) then Inc(c);
end;
...

За объяснениями в аську)

Спасибо большое.

[Grag]

ZaRDaK, а что, элементы последней строки и последней колонки проверять не нужно???

for ii := 0 to 4 do 
 for i := 0 to 2 do if (A[ii][i] < 0) then Inc(c);

[DoDge_VipeR]

2Grag

а что, элементы последней строки и последней колонки проверять не нужно???

да что вам везде измена снится

for ii := 0 to 4 do 
 for i := 0 to 2 do

как раз 5 строк и 3 столбца как и нужно по заданию

Размер массива A [5x3]