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

[Moraine93]

ругается на нее

StringGrid1.Cells[x, y] := IntToStr(a[x][y]);

[Moraine93]

за место n:=8; может писать n:=9;

[ura_111]

А что это за строчка? Что она делает?

[Moraine93]

procedure TForm1.menu_stolbec_8(Sender: TObject);
begin
n:=8;
end;

[ura_111]

Ну как, работало, а теперь нет.
СПОМИНАЙ, ЧТО ИЗМЕНЯЛА.

[ura_111]

Нет, в меню ничего не меняй.
Если ты поменяешь - это заронит потом матрицу А[][], и кучу другого.
У нас же всё на "m, n" завязано.

Ошибка где то в другом месте.

[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:=1 to n-1 do
setlength(a[x],m);
 // Çàäàåì ÷èñëî ñòîëáöîâ è ñòðîê òàáëèöû
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
 for x:=1 to n-1 do
    for y:=1 to m-1 do
      a[x][y] :=Random(201)-100; //çàïîëíÿåì ìàññèâ ñëó÷àéíûìè ÷èñëàìè
// Çàäàåì øèðóíó è âûñîòó ÿ÷ååê
   StringGrid1.DefaultColWidth := 30;
   StringGrid1.DefaultRowHeight:= 30;
    for x := 1 to StringGrid1.ColCount - 1 do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(a[x][y]);
    begin
end;
end;

end.

[ura_111]

Так что?

Убери

i, j,

[Moraine93]

одного столбца и строки не хватает с тех пор как удалили

procedure TForm1.menu_stolbec_8(Sender: TObject);
  var
   x, y : integer;
begin

   // Задаем число столбцов и строк таблицы
   StringGrid1.ColCount := 9;
 //  StringGrid1.RowCount := 7;

и то я +1, т.е если 7 писала 8 и т.д.

[ura_111]

1) Здесь от "0-ля"
for x:=1 to n-1 do
for y:=1 to m-1 do
a[x][y] :=Random(201)-100;


2) зДЕСЬ ТАК

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