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

[Moraine93]

ошибка

[ura_111]

У тебя 2 раза "min" встречается.

И тип не указан

Сюда взгляни

http://www.adodo.ru/blog/delphi/115.html

только тип у тебя другой.

[Moraine93]

поправила

[ura_111]

Вот пример динамических массивов (1-но и 2-х мерные):

13.jpg

[Moraine93]

переделала
теперь работает...
правильно???

[ura_111]

Меняй массив А, он у тебя статический.

Вот я, пару дней назад экспериментировал с динамическим массивом:


13.jpg

Я уже писал


14.jpg

[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 draw(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
    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);
    procedure Reresech11Click(Sender: TObject);

  //  procedure dblclik(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
a: array[0..10] of array [0..10] of integer;
min: array[0..2] of array [0..100] of integer;
minim, stroc, stolb, q, x, y, i, j,  m, n:integer;

implementation

{$R *.dfm}
  procedure TForm1.menu_stolbec_7(Sender: TObject);

begin
n:=7;
   // Çàäàåì ÷èñëî ñòîëáöîâ òàáëèöû
   StringGrid1.ColCount := 8;
   // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
end;
procedure TForm1.menu_stolbec_8(Sender: TObject);

begin
n:=8;
   // Çàäàåì ÷èñëî ñòîëáöîâ òàáëèöû
  StringGrid1.ColCount := 9;
  // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
end;
   // Çàäàåì ÷èñëî ñòîëáöîâ òàáëèöû
  procedure TForm1.menu_stolbec_9(Sender: TObject);

begin
    n:=9;
     // Çàäàåì ÷èñëî ñòîëáöîâ  òàáëèöû
  StringGrid1.ColCount := 10;
  // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
end;
procedure TForm1.menu_stolbec_10(Sender: TObject);

begin
   n:=10;
     // Çàäàåì ÷èñëî ñòîëáöîâ  òàáëèöû
   StringGrid1.ColCount := 11;
   // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
end;
procedure TForm1.menu_stroka_7(Sender: TObject);

begin
m:=7;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
    StringGrid1.RowCount := 8;
    // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
 end;
procedure TForm1.menu_stroka_8(Sender: TObject);

begin
   m:=8;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
    StringGrid1.RowCount := 9;
    // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
end;
procedure TForm1.menu_stroka_9(Sender: TObject);

begin
m:=9;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
    StringGrid1.RowCount := 10;
    // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
end;
procedure TForm1.menu_stroka_10(Sender: TObject);
begin
   m:=10;
   // Çàäàåì ÷èñëî ñòðîê òàáëèöû
    StringGrid1.RowCount := 11;
    // âûâîäèì ðåçóëüòàòû óìíîæåíèÿ â ÿ÷åéêè òàáëèöû
   for x := 1 to StringGrid1.ColCount - 1  do
    for y := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Cells[x, y] := IntToStr(x*y);
end;
 { procedure TForm1.draw(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
  State: TGridDrawState);

begin
//Âû÷èñëÿåì ÿ÷åéêè êîòîðûå íàì íàäî çàêðàñèòü

   if StringGrid1.Cells[ACol,ARow]<>'' then
    begin
     if StrToInt(StringGrid1.Cells[ACol,ARow])=min then
      begin
       StringGrid1.Canvas.FillRect(Rect);
       StringGrid1.Canvas.TextOut(Rect.Left,Rect.Top,StringGrid1.Cells[Acol,Arow]);

      end;
end;
end; }
 procedure TForm1.dblclick(Sender: TObject);
//i, j, : integer;
 begin
 for i:=0 to n-1 do
    for j:=0 to m-1 do
      a[i][j] :=Random(201)-100; //çàïîëíÿåì ìàññèâ ñëó÷àéíûìè ÷èñëàìè
// Çàäàåì ÷èñëî ñòîëáöîâ è ñòðîê òàáëèöû
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
// Çàäàåì øèðóíó è âûñîòó ÿ÷ååê
   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[i][j]);
end;

procedure TForm1.Reresech11Click(Sender: TObject);
 var strok, stolb : integer;
begin
  strok :=0;
  stolb :=0;
   minim :=-100;
   for I := 0 to n-1 do
      for j := 0 to m-1 do
        if a[i,j] < minim then     //åñëè ýëåìåíò áîëüøå, ÷åì ÷èñëî â ïåðåìåííîé max
        begin
         for q := 0 to 10 do
          minim := a[i,j];         //çàïèñûâàåì â min ýòî ÷èñëî
          strok := i + 1;       //çàïèñûâàåì ñòðîêó â êîòîðé ìèíèìàëüíûé
          stolb := j + 1;      //çàïèñûâàåì ñòîãëáåö ñ ìèíèìàëüíûì ÷èñëîì
        end;
       // ShowMessage(ToString(min));    //âûâîäèì min
       //ShowMessage(stroka.ToString(strok)+ stolbec.ToString(stolb));    

   end;
 {   var
    min[2][100]
    MINIMUM =A[0][0];
for I := 0 to n-1 do
      for j := 0 to m-1 do
        if r[i,j] < min then
if(MINIMUM>A[i][j]) òîãäà MINIMUM =A[0][0]; }
   end.

[Moraine93]

на пустую матрицу он ругается

[Moraine93]

 procedure TForm1.dblclick(Sender: TObject);
//i, j, : integer;

 begin
 for i:=0 to n-1 do
    for j:=0 to m-1 do
      a[i][j] :=Random(201)-100; //заполняем массив случайными числами
// Задаем число столбцов и строк таблицы
   StringGrid1.ColCount := m;
   StringGrid1.RowCount := n;
// Задаем шируну и высоту ячеек
   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[i][j]);
    begin
setlength(a,n);
for x:=0 to n-1 do
setlength(a[x],m);
end;
end;

[ura_111]

Итак, начнём:

1) чисти все меню. Оставляй только m=7 (n=10) и т.п.
2) Я констатирую факт: массив "а" ты сделал статическим (кстате, если счёт ты ведёшь с "0-ля", тогда до "9"). Вот как надо (перепроверь) :

13.jpg


14.jpg

иСПРАВИШЬ - ПОКАЖИ КОД.