Определить номера строк массива

[MISTER_88]

В делфи. Дан двумерный массив размером n*m, заполненный случайными числами из промежутка [-25,25]. Определить номера строк массива, содержащих только положительные элементы.
Сделал 1-ю часть задания, а вот определить номера положит.элементов незнаю как...

[whatever]

function CheckLine(A:mass; i:integer):boolean;
var
  j:integer;
begin
  result:=true;
  for j:=1 to m do //предполагается, что m - глобальная переменная или константа
    if A[i,j]<0 then
      begin
        result:=false;
        break;
      end;
end;

i - номер проверяемой строки, A - массив. Функция возвращает true, если все элементы положительные, если находит отрицательный, то false;

[MISTER_88]

whatever, Спасибо за ответ. А можно как нибудь иначе написать код?
например так:

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k:integer;
begin
edit3.Text:=' ';
setlength(a,n,m);
k:=0;

for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>0 then

edit3.text:=inttostr(k);
end;

[whatever]

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

whatever, Спасибо за ответ. А можно как нибудь иначе написать код?
например так:
procedure TForm1.Button2Click(Sender: TObject);
var
i,j,k:integer;
begin
edit3.Text:=' ';
setlength(a,n,m);
k:=0;

for i:=0 to n-1 do
for j:=0 to m-1 do
if a[i,j]>0 then

edit3.text:=inttostr(k);
end;

Это что вообще?
Размерность, значит, задали, значения элементам не присволили, какое-то k... Ты точно "сделал 1-ю часть задания" ? Напиши, что есть, покажу, куда и как воткнуть процедуру.

[MISTER_88]

whatever, вот первая часть

var
  Form1: TForm1;
  n,m:integer;
  a:array  of array of integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
a:array [0..20,0..20] of integer;
begin
randomize;
n:=strtoint(edit1.text);
m:=strtoint(edit2.text);
for i:=0 to n-1 do
for j:=0 to m-1 do
a[i,j]:=random(41)-20;
stringgrid1.RowCount:=n+1;
stringgrid1.colCount:=m+1;
with stringgrid1 do
begin
i:=0;
for j:=1 to rowcount do
cells [i,j]:=inttostr(j);
j:=0;
for i:=1 to colcount do
cells [i,j]:=inttostr(i);
end;
with stringgrid1 do
for I:=1 to n do
for j:=1 to m do
cells [j,i]:=inttostr (a[i-1,j-1]);
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[whatever]

Ну тогда так:

var
 Form1: TForm1;
 n,m:integer;
 a:array of array of integer;

 implementation

 {$R *.dfm}
function CheckLine(A:mass; i:integer):boolean;
var
  j:integer;
begin
  result:=true;
  for j:=0 to m-1 do 
    if A[i,j]<0 then
      begin
        result:=false;
        break;
      end;
end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   i,j:integer;
   a:array [0..20,0..20] of integer;
 begin
   randomize;
   n:=strtoint(edit1.text);
   m:=strtoint(edit2.text);
   for i:=0 to n-1 do
     for j:=0 to m-1 do
       a[i,j]:=random(41)-20;
   stringgrid1.RowCount:=n+1;
   stringgrid1.colCount:=m+1;
   with stringgrid1 do
     begin
       i:=0;
       for j:=1 to rowcount do
         cells [i,j]:=inttostr(j);
       j:=0;
       for i:=1 to colcount do
         cells [i,j]:=inttostr(i);
     end;
   with stringgrid1 do
   for I:=1 to n do
     for j:=1 to m do
       cells [j,i]:=inttostr(a[i-1,j-1]);

   edit3.text:='';
   for i:=0 to n-1 do
     if CheckLine(a,i) then
       edit3.text:=edit3.text+' '+inttostr(i)
 end;

Работать будет, но непонятно, зачем ты глобально объявил динамический массив и не пользуешься им.

[MISTER_88]

whatever, Спасибо! Все работает)