Матрица. найти наибольшие элементы среди стоящих на главной и побочной диагоналях и поменять их местами (Delphi)

[simak12345]

Дана матрица 3х3.
Подскажите как найти наибольший элемент среди стоящих на главной и побочной диагоналях?

[Alchemic]

simak12345, даёшь начальный код!

[simak12345]

var
  Form1: TForm1;

implementation

{$R *.dfm}
type Ta=array of array of real;

procedure ZapolnenieStrGrid(m,n:integer;StrGrd:TstringGrid);
    var i,j:integer;
begin
   StrGrd.RowCount:=m;
   StrGrd.ColCount:=n;
   for i:=1 to StrGrd.rowCount - 3 do
     for j:=1 to StrGrd.colCount - 3 do
         StrGrd.Cells[j,i]:=FloatToStrF(i-j,ffFixed,4,3);
end;

[Stilet]

Во первых код у нас принято выделать спецтегом.
Во-вторых главная диагональ это StrGrd.Cells[i,i] а побочная StrGrd.Cells[StrGrd.colCount-i,i]
И все это можно рассчитать в одном цикле.

[simak12345]

Ребят,помогите вывести на экран наибольший элемент и поменять местами

type Tmatr= array [1..50] of array [1..50] of real;
 var
  Form1: TForm1;
  k:integer;
  matr:Tmatr;
implementation

{$R *.dfm}
type Ta=array of array of real;
  //задание матрицы и вывод на экран
procedure ZapolnenieStrGrid(m,n:integer;StrGrd:TstringGrid);
    var i,j:integer;
 begin
   StrGrd.RowCount:=m;
   StrGrd.ColCount:=n;
   for i:=0 to StrGrd.rowCount - 1 do
     for j:=0 to StrGrd.colCount- 1 do
         StrGrd.Cells[j,i]:=FloatToStrF(i-j,ffFixed,4,3);
 end;
//нахождение максимального элемента среди диагоналей
procedure TForm1.Button1Click(Sender: TObject);
   var m,n:integer;
  begin
    m:=StrToInt(Edit1.text);
    n:=StrToInt(Edit2.text);
    ZapolnenieStrGrid(m,n,StringGrid1);
  end;


procedure TForm1.Button2Click(Sender: TObject);

var i: integer; max: real; Matr:Tmatr; row, col: integer;
begin
max := Matr[1,1]; row := 1; col := 1;
for i := 1 to k do
  begin
   //главная диагональ
    if Matr[i, i] > max then
       begin
         max := Matr[i, i];
         row := i;
         col := i
        end;
   //побочная диагональ
    if Matr[i, k-i+1] > max then
        begin
          max := Matr[i, k-i+1];
          row := i;
          col := k-i+1
         end;
  end;
Matr[i,i] := max;
Matr[i,i]:=StrToInt(edit3.text);
end;


//обмен элементов и вывод результата на экран
procedure TForm1.Button3Click(Sender: TObject);
var  buf:real;
     i,j,row,col:integer;
begin
StringGrid2.RowCount := k;
StringGrid2.ColCount  := k;
buf := matr[k div 2 + 1, k div 2 + 1];
matr[k div 2 + 1, k div 2 + 1] := matr[row,col];
matr[row, col] := buf;
for i:= 1 to k do
for j:=1 to k do
StringGrid2.Cells[j-1,i-1]:=FloatToStrF(matr[i,j],ffFixed,5,2);
end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.