Очень нужно решение этой задачки, код и блок схему

[Moraine93]

так

procedure TForm1.dblclick(Sender: TObject);
 var
 x,y :integer;
 begin
 setlength(a,n);
for x:=1 to n-1 do
setlength(a[x],m);
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
 for x:=0 to n-1 do
    for y:=0 to m-1 do
      a[x][y] :=Random(201)-100;
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;
    for x := 1 to StringGrid1.ColCount do
    for y := 1 to StringGrid1.RowCount do
    StringGrid1.Cells[x, y] := IntToStr(a[x-1][y-1]);
    begin
end;
end;

[ura_111]

Ну пробуй.

[Moraine93]

вылазит это когда после того как выбрал столбцы и строки кликаеш 2 раза по таблице

[ura_111]

Попробуй поменять на

setlength(a,n);
for x:=0 to n-1 do
setlength(a[x],m);

[Moraine93]

рандом получше работает хоть о вылазит табличка
которая выделяет одну из них

  StringGrid1.Cells[x, y] := IntToStr(a[x-1][y-1]);
     a[x][y] :=Random(201)-100;

[ura_111]

Обрати внимание:

8х7 - нормально, а
7х8 - нет

А чё у тебя здесь "вверху n"

for x:=0 to n-1 do
for y:=0 to m-1 do
a[x][y] :=Random(201)-100;

А здесь "вверху m"

StringGrid1.ColCount := m;
StringGrid1.RowCount := n;

for x := 1 to StringGrid1.ColCount do
for y := 1 to StringGrid1.RowCount do
tringGrid1.Cells[x, y] := IntToStr(a[x-1][y-1]);

[Moraine93]

да я знаю.... когда строки превышают кол-во столбцов то вылазит эта штукенция

[ura_111]

А чё у тебя здесь "вверху n"

for x:=0 to n-1 do
for y:=0 to m-1 do
a[x][y] :=Random(201)-100;

А здесь "вверху m"

StringGrid1.ColCount := m;
StringGrid1.RowCount := n;

for x := 1 to StringGrid1.ColCount do
for y := 1 to StringGrid1.RowCount do
tringGrid1.Cells[x, y] := IntToStr(a[x-1][y-1]);

[Moraine93]

так же

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Menus;
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    Stolbec1: TMenuItem;
    N71: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    N101: TMenuItem;
    Stroka1: TMenuItem;
    N72: TMenuItem;
    N82: TMenuItem;
    N92: TMenuItem;
    N102: TMenuItem;
    Reresech11: TMenuItem;
    StringGrid1: TStringGrid;
    procedure menu_stolbec_8(Sender: TObject);
    procedure menu_stolbec_9(Sender: TObject);
    procedure menu_stolbec_7(Sender: TObject);
    procedure menu_stolbec_10(Sender: TObject);
    procedure menu_stroka_7(Sender: TObject);
    procedure menu_stroka_8(Sender: TObject);
    procedure menu_stroka_9(Sender: TObject);
    procedure menu_stroka_10(Sender: TObject);
    procedure dblclick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
a: array of array of integer;
min: array[1..3] of array[1..101]  of integer;
i, j, m, n:integer;

implementation

{$R *.dfm}
  procedure TForm1.menu_stolbec_7(Sender: TObject);
begin
n:=7;
end;
procedure TForm1.menu_stolbec_8(Sender: TObject);
begin
n:=8;
end;
procedure TForm1.menu_stolbec_9(Sender: TObject);
begin
n:=9;
end;
procedure TForm1.menu_stolbec_10(Sender: TObject);
begin
n:=10;
end;
procedure TForm1.menu_stroka_7(Sender: TObject);
begin
m:=7;
end;
procedure TForm1.menu_stroka_8(Sender: TObject);
begin
m:=8;
end;
procedure TForm1.menu_stroka_9(Sender: TObject);
begin
m:=9;
end;
procedure TForm1.menu_stroka_10(Sender: TObject);
begin
m:=10;
end;
 procedure TForm1.dblclick(Sender: TObject);
 var
 x,y :integer;
 begin
 setlength(a,n);
for x:=0 to n-1 do
setlength(a[x],m);
   StringGrid1.ColCount := m; //stolbec
   StringGrid1.RowCount := n;  //stroka
    for x:=0 to m-1 do
    for y:=0 to n-1 do
      a[x][y] :=Random(201)-100;
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;
    for x := 1 to StringGrid1.ColCount do
    for y := 1 to StringGrid1.RowCount do
    StringGrid1.Cells[x, y] := IntToStr(a[x-1][y-1]);
    begin
end;
end;

end.

[ura_111]

Что это такое

 StringGrid1.ColCount := m; //stolbec

и это

  procedure TForm1.menu_stolbec_7(Sender: TObject);
begin
n:=7;