Ошибка при определении количества отрицательных элементов

@fimcha · Регистрация: 06.10.2015

Author24 — интернет-сервис помощи студентам

Есть матрица (двумерный массив), который выводится в StringGrid. Нужно для каждой строки матрицы определить количество отрицательных элементов, в чем заключается ошибка?

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var i,j,l:integer;
A:array of array  of real;
begin
for i:= 0 to m - 1 do
for j:= 0 to n - 1 do
a[i,j]:=StrToFloat(StringGrid1.Cells[j,i]);
for i:= 0 to m - 1 do
begin
l:=0;
for j := 0 to n - 1 do
if a[i,j] < 0 then
l:=l+1;
StringGrid2.Cells[0,j] := IntToStr(l);
end;
end;

@Puporev · 18.01.2017, 17:17

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

в чем заключается ошибка?

Ну бросается в глаза то что не определены m,n и не выделена память под массив.

@fimcha · 18.01.2017, 23:20 **[ТС]**

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

Ну бросается в глаза то что не определены m,n и не выделена память под массив.

можете исправления указать оч срочно нужно?

@D1973 · 19.01.2017, 08:29

Delphi

var m, n : integer;
...
m := StringGrid1.RowCount;
n := StringGrid1.ColCount;
SetLength(A, m, n);
//Дальше по тексту (наверное, не проверял)

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	18.01.2017, 17:17	2
	Сообщение от fimcha в чем заключается ошибка? Ну бросается в глаза то что не определены m,n и не выделена память под массив. 0

@fimcha 0 / 0 / 0 Регистрация: 06.10.2015 Сообщений: 9
	18.01.2017, 23:20 [ТС]	3
	Сообщение от Puporev Ну бросается в глаза то что не определены m,n и не выделена память под массив. можете исправления указать оч срочно нужно? 0

	19.01.2017, 08:29

Опции темы

Ошибка при определении количества отрицательных элементов

Решение