Поле Memo Delphi 7

[Op1nG.Spark]

дано поле мемо в ней нужно решить задачку заполнить процедуру обработки той задачки которая указал там в коментарие(имеется массив a(m,n) подсчитать кол-во положит и отриц элементов массива).как это написать?

я новичек строго не судите мои объяснения и написание Delphi 7

Button 1 и 3 вроде правильно написал





procedure TForm1.Button1Click(Sender: TObject);
var
j,i:integer;
begin
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
Memo1.Lines.Add('исходная матрица');
Memo1.Lines.Add('');
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(100)/random(10)-random(25);
Memo1.text:=Memo1.Text+floattostr(a[i,j])+' ';
end;
end;
end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Add('кол-во элементов');
///// имеется массив a(m,n) подсчитать кол-во положит и отриц элементов массива.

end;




procedure TForm1.Button3Click(Sender: TObject);
begin
Memo1.Clear;
end;
end.

[ByAlex]

Сообщение от Op1nG.Spark

дано поле мемо в ней нужно решить задачку заполнить процедуру обработки той задачки которая указал там в коментарие(имеется массив a(m,n) подсчитать кол-во положит и отриц элементов массива).как это написать?возможно ли вот таким образом

Привет! Процедура поиска положительных и отрицательных вообще простая, просто проверяешь элемент массива, он больше или меньше 0 и все. Будут две переменных.
for i:=1 to n do
for j:=1 to m do
begin
if a[i,j]>=0 then
inc(Polog)
else inc(Otric);
end;

[Op1nG.Spark]

спасибо большое))