Вырезка из матрицы

[Макспч21]

Собсно с этим то и проблема, понимаю что решение элементарно, однако из за этих
Write('a[',i,']=');
Readln(a[i]);
запутался((.

[GetMax]

Есть два варианта решения. Можно работать напрямую с массивом StringGrid2, а можно передать его значения в уже описанный тобой массив а и работать по тому алгоритму, который написан выше. Второй вариант можно реализовать так

With StringGrid2 do
Begin
  For i:=0 to ColCount-1 do
  A[i+1]:=StrToInt(Cells[i,0])
End;

А вот это

Write('a[',i,']=');
Readln(a[i]);
For i:=1 to n do Write(A[i])

тебе не понадобится.

[Макспч21]

Такс, пока безуспешно...

Суммируя вышесказанное

var a:array[1..10] of integer;
min,max,i:integer;
  begin
    for i:=1 to n do begin
    With StringGrid2 do
      begin
        For i:=0 to ColCount-1 do
         A[i+1]:=StrToInt(Cells[i,0]);
     end;
begin
max:=a[1];
min:=a[1];
for i:=1 to n do
      begin
       if a[i]>max then max:=a[i];
       if a[i]<min then min:=a[i];
      end;
 end;
end.

Что делать с куском выделенным жирным шрифтом?

[GetMax]

Что делать с куском выделенным жирным шрифтом?

Да ничего не делать вообщем то. Только убери лишние операторные скобки begin..end. В этом куске ты нашел максимальный и минимальный элементы массивы( правда опять забыл найти их номера). Записывай полученные значения в 3 и 4 StringGrid и все дела.
Добавлено
Ну и конечно сравни как у меня

With StringGrid2 do
Begin
  For i:=0 to ColCount-1 do
  A[i+1]:=StrToInt(Cells[i,0])
End;

И как ты написал

 for i:=1 to n do begin
    With StringGrid2 do
      begin
        For i:=0 to ColCount-1 do
         A[i+1]:=StrToInt(Cells[i,0]);
     end;

[Макспч21]

var a:array[1..10] of integer;
min,max,i:integer;
  begin
      With StringGrid2 do
         begin
             For i:=0 to ColCount-1 do
             A[i+1]:=StrToInt(Cells[i,0]);
         end;
       max:=a[1];
       min:=a[1];
   for i:=1 to n do
  begin
      if a[i]>max then
    begin
      max:=a[i];
      imax:=i;
   End;
    if a[i]<min then
    Begin
      min:=a[i];
      imin:=i
    End;
  end;
      begin
       if a[i]>max then max:=a[i];
       if a[i]<min then min:=a[i];
      end;
 end;
end.

Вот так? Объявить ничего не забыл? n к примеру...

[GetMax]

Так как тебе изначально известен размер исходного массива (1 х 25), то естественно
массив а у тебя тоже будет из 25 элементов, ну и вместо n тоже можно сразу писать 25( при условии, что размер постоянный и заполнены все столбцы массива StringGrid2). Вообщем так будет

var a:array[1..25] of integer;
min,max,i,imax,imin:integer;
  begin
      With StringGrid2 do
         begin
             For i:=0 to ColCount-1 do
             A[i+1]:=StrToInt(Cells[i,0]);
         end;
       max:=a[1];
       min:=a[1];
   for i:=1 to 25 do
  begin
      if a[i]>max then
    begin
      max:=a[i];
      imax:=i;
   End;
    if a[i]<min then
    Begin
      min:=a[i];
      imin:=i
    End;
  end;

[Макспч21]

Сообщение от GetMax

Так как тебе изначально известен размер исходного массива (1 х 25), то естественно
массив а у тебя тоже будет из 25 элементов, ну и вместо n тоже можно сразу писать 25( при условии, что размер постоянный и заполнены все столбцы массива StringGrid2). Вообщем так будет

var a:array[1..25] of integer;
min,max,i,imax,imin:integer;
  begin
      With StringGrid2 do
         begin
             For i:=0 to ColCount-1 do
             A[i+1]:=StrToInt(Cells[i,0]);
         end;
       max:=a[1];
       min:=a[1];
   for i:=1 to 25 do
  begin
      if a[i]>max then
    begin
      max:=a[i];
      imax:=i;
   End;
    if a[i]<min then
    Begin
      min:=a[i];
      imin:=i
    End;
  end;

Добавить нужно это:?

 with StringGrid3 do
    S:=Cells[max, imax];
         with StringGrid4 do
    S:=Cells[min, imax];

[GetMax]

Добавить нужно это

With StringGrid3 do
Begin
  Cells[0,0]:=IntToStr(Max);
  Cells[1,0]:=IntToStr(imax)
End;
With StringGrid4 do
Begin
  Cells[0,0]:=IntToStr(Min);
  Cells[1,0]:=IntToStr(imin)
End;

[Макспч21]

СПАСИБО БОЛЬШОЕ!

[Макспч21]

procedure TForm1.btn1Click(Sender: TObject);
   var a:array[1..5] of extended;
min,max,i: extended;
imax,imin:integer;
  begin
      With StringGrid2 do
         begin
             For i:=0 to RowCount-1 do
             A[i+1]:=StrTofloat(Cells[0,i]);
         end;
       max:=a[1];
       min:=a[1];
       imin:=1;
        imax:=1;
   for i:=1 to 5 do
  begin
      if a[i]>max then
    begin
      max:=a[i];
      imax:=i;
   End;
    if a[i]<min then
    Begin
      min:=a[i];
      imin:=i;
    End;
  end;
    With StringGrid3 do
   Begin
     Cells[0,0]:=FloatToStrF(Max);
     Cells[1,0]:=FloatToStrF(imax);
   End;
     With StringGrid4 do
     Begin
       Cells[0,0]:=FloatToStrF(Min);
       Cells[1,0]:=FloatToStrF(imin);
     End;
    end;

   end.

Люди пасмарите плиз где ошибка, что исправить? По отладчику прога в самом начале показывает что гон.