Матрица.Делфи.

[Простой юзер.]

Дана матрица F.Найдите в каждой строке максимальный элемент и поменяйте его местами с главной диагональю.

Очень прошу помогите,задача вроде бы лёгкая.но уже второй семестр с ней парюсь.
Да нуб,знаю.
Делфи родненький и стрин грид.

[ByAlex]

[QUOTE=Простой юзер.;798615][CENTER][I][FONT="Arial Narrow"]Дана матрица F.Найдите в каждой строке максимальный элемент и поменяйте его местами с главной диагональю.

Т.е в главной диагонали должны быть максимальные элементы, да?

[Простой юзер.]

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

Т.е в главной диагонали должны быть максимальные элементы, да?

Именно так.Сначала нужно найти макс. элемент в каждой строчке,а затем поменять эти максимальные элементы с элементами которые находятся на главной диагонали.
Не заменить их,а поменять местами.
То есть,если в первой строчке так: 1 6 0 то нужно шестёрку поставить на место единицы,а единицу на место шестерки и так с каждой строчкой

[Mad_Cat]

обращайтесь! недорого! контакты :

[ByAlex]

Если еще нужно, то вот -

program Project5;

uses
  SysUtils;

var
  max,maxj,i,j,t:integer;
  a:array[1..5,1..5] of integer;
begin
  writeln('Vvedite matrix[5x5]:');
  for i := 1 to 5 do
    for j := 1 to 5 do
      read(a[i,j]);
  max:=0;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
    begin
      if a[i,j]>max then
      begin
        max:=a[i,j];
        maxj:=j;
      end;
    end;
    t:=a[i,i];
    a[i,i]:=a[i,maxj];
    a[i,maxj]:=t;
  end;
  writeln;
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(a[i,j],' ');
    writeln;
  end;
  readln;
  readln;
end.

[Простой юзер.]

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

Если еще нужно, то вот -

Спасибо,Алекс.Завтра попробую и напишу что вышло.