определит номера строк двумерной матрицы, содержащих только положительные элементы

23.11.2010, 22:17. **Показов** 721. **Ответов** 0

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

Задание: определит номера строк двумерной матрицы, содержащих только положительные элементы.

вроде как лёгкое задание, но пока без успешно,
вот это всё на что я способна :

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var i, j, b, m, n: Integer;
a: array[1..100, 1..100] of Integer;
begin
Randomize;
for i:=1 to StringGrid1.RowCount do begin
for j:=1 to StringGrid1.ColCount do begin
a[i,j]:=random(10)-random(10);
StringGrid1.Cells[j-1, i-1]:=IntToStr(a[i,j]);
end;
end;
end;
  procedure TForm1.Button2Click(Sender: TObject);
var i, j, k,s, m, n: Integer;
a: array[1..50, 1..50] of Integer;
 
begin
  m:=StringGrid1.RowCount;
  n:=StringGrid1.ColCount;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i, j]:=StrToInt(StringGrid1.Cells[j-1, i-1]);
    end;
  end;
    k:=0;
    for i:=1 to m do begin
    
    k:=k+a[1,j]
    end;
      k:=k+i;
 
Label3.Caption:='k='+FloatToStr(k);
end;
end.

пожалуйста помогите исправить программу, если здесь вообще есть что-либо правильное

	23.11.2010, 22:17