Матрицы в Delphi 7

[seriikorj]

.....искал...на форуме нету........матрица 5X5....найти максимальные числе по главной и побочной диагоналям и поменять их местами.....для Delphi 7......прошу помочь так как работаю и учусь.....

[ubun]

max1:=a[1,1]; или а[0,0]
for i:=  to   do
begin
if a[i,i]>max1 then max1:=a[i,i];
end;
max2:=a[1,5]; или а[0,4]
for i:=  to   do
for j:=  to   do
i:=i+1;
j:=J-1;
begin
if a[i,j]>max2 then max2:=a[i,j];
end;

и потом заменить элементы через цикл

[alex_fcsm]

Поиск на главной диагонале

Imax:=1;
i:=2;
while i<=5 do
 begin
  if a[i,i]>a[Imax,Imax] then Imax:=I;
  inc(i);
 end;

Поиск на побочной

JMax:=1;
j:=2;
while j<=5 do
 begin
  if a[j,5-j+1]>a[Jmax,5-JMax+1] then Jmax:=j;
  inc(j);
 end;

Меняем

temp:=a[Jmax,5-JMax+1];
a[Jmax,5-JMax+1]:=a[Imax,Imax];
a[Imax,Imax]:=temp;

[seriikorj]

это точно для Delphi?Потому что у меня везде ошибки выдаёт!

[alex_fcsm]

Это не полностью готовое решение, а основная часть. Все обертку вы сами должны сделать. В Делфи можно создавать консольные приложения(такие как в Паскале)

[Stilet]

Может потому что ты неправильно код используешь. Это ведь намек как действовать а не готовая программа.

[seriikorj]

я понимаю что готовую программу мне никто не скинет......но я пытаюсь переделывать но она не хочет работать!!

[alex_fcsm]

Ваш код в студию, телепаты все еще в отпуске