Массивы. Delphi

[gree]

Всем привет. Не могу разобраться что не так в проге. Работает не корректно.. Задание как бы такое, Нужно создать массив квадратный, и найти максимальный и минимальный элемент.
вот мой код:

var n:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
   n:=StrToInt(Edit1.Text);
   StringGrid1.ColCount:=n;
   StringGrid1.RowCount:=n;
end;
procedure TForm1.Button2Click(Sender: TObject);
var a:array[1..10,1..10] of integer;
    i,j,max,maxI,maxJ,min,minI,minJ:integer;
begin
   for i:=1 to n do
   for j:=1 to n do
a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
   min:=a[1,1];
   minI:=1;
   minJ:=1;
   for i:=1 to n do
   for j:=1 to n do
 if a[i,j]<min then
begin
min:=a[i,j];
minI:=i;
minJ:=j;
end;
label1.Caption:='минимальный элемент ='+inttostr(min);
begin
   for i:=1 to n do
   for j:=1 to n do
a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
   max:=a[1,1];
   maxI:=1;
   maxJ:=1;
   for i:=1 to n do
   for j:=1 to n do
 if a[i,j]<min then
begin
max:=a[i,j];
maxI:=i;
maxJ:=j;
end;
label2.Caption:='максимальный элемент ='+inttostr(max);
end;
end;
end.

Вот скрин:

Помогите пожалуйста..

[Levsha100]

Не разбирался в Вашем коде.

var
maxX,maxY,i,j,min,max:integer;
a:array of array of integer;
begin
 maxX:=10;
 maxY:=10;
 setLength(a,maxX,maxY);
//-----------------------------------
  for i:=0 to maxX-1 do
   for j:=0 to maxY-1 do
    a[i,j]:=StrToInt(StringGrid1.Cells[i,j]);
//-----------------------------------
 max:=A[1,1];
 min:=A[1,1];
 for j:=0 to maxY-1 do
   for i:=0 to maxX-1 do
   begin
     if a[i,j]>max then max:= a[i,j];
     if a[i,j]<minthen min:= a[i,j];
   end;

Вот это добавьте вместо вашего кода.

[IT-man]

procedure TForm1.Button2Click(Sender: TObject);
var a:array[1..10,1..10] of integer;
    i,j,max,maxI,maxJ,min,minI,minJ:integer;
begin
   for i:=1 to n do
   for j:=1 to n do 
a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
   max:=-9999;
min:=a[1,1];
   minI:=1;
   minJ:=1;
   for i:=1 to n do
   for j:=1 to n do begin
 if a[i,j]<min then
begin
min:=a[i,j];
minI:=i;
minJ:=j;
end;
 if a[i,j]>max then
begin
max:=a[i,j];
maxI:=i;
maxJ:=j;
end; 
end;
label1.Caption:='минимальный элемент ='+inttostr(min);
label2.Caption:='максимальный элемент ='+inttostr(max);

end;

А это ваш код исправленный

[Levsha100]

to IT-man
Ваш код немного неправильный, ошибка- не динамический массив

[IT-man]

а причем тут динамический массив то? и вот это

a:array of array of integer;

к чему ?

[Levsha100]

Размерность вводится в процессе работы программы

[gree]

Сообщение от IT-man

procedure TForm1.Button2Click(Sender: TObject);
var a:array[1..10,1..10] of integer;
    i,j,max,maxI,maxJ,min,minI,minJ:integer;
begin
   for i:=1 to n do
   for j:=1 to n do 
a[i,j]:=StrToInt(StringGrid1.Cells[i-1,j-1]);
   max:=-9999;
min:=a[1,1];
   minI:=1;
   minJ:=1;
   for i:=1 to n do
   for j:=1 to n do begin
 if a[i,j]<min then
begin
min:=a[i,j];
minI:=i;
minJ:=j;
end;
 if a[i,j]>max then
begin
max:=a[i,j];
maxI:=i;
maxJ:=j;
end; 
end;
label1.Caption:='минимальный элемент ='+inttostr(min);
label2.Caption:='максимальный элемент ='+inttostr(max);

end;

А это ваш код исправленный

А почему

...
max:=-9999;
...

??

[IT-man]

Чтобы было с чем сравнивать и не писать 5-10 лишних строк кода и я думаю числа у вас будут больше чем -9999 в любом случае

[gree]

Хотел спросить почему он у меня бред выводит, так потом сам догадался, что в начале массив задается как 10 на 10 и там значения не проставлены. Если значения не проставлены он принимает самую максимальную единицу integer 2117554957 за мин.. а за макс соответственно -9999.
Всем большое человеческое спасибо за помошь. только остался вопрос почему он мне значения выдавал неверные..

[IT-man]

Интересно с чего вы это взяли? Он проверяет только n на n элементов а в них значения есть из грида. Так что косяк где то в другом месте ищите.