смена местами

[Сristina]

Здравствуйте господа программисты! В очередной раз прошу вас о помощи!

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

Очень надеюсь, что вы мне поможете! Заранее спасибо!

[Mandrivnyk]

И тебе привет.
В очередной раз спрашиваю -- язык какой? -)

[ZvEr_HaCkEr]

Язык? Подозреваю Pascal abc.

[Сristina]

ой) да, забыла сказать - Pascal=)

ZvEr_HaCkEr - спасибо огромное!

[Novenkaja]

Кристина-это,во-первых,часть кода,ответ на первый твой вопрос наибольший элемент в строке,а во-вторых,его надо немного изменить,т.к. у меня было задание найти наибольший в строке,но наименьший в колонне,но за это задание у меня зачёт 100%-ный.

program массив;
uses crt;
type mas=array [1..10,1..10] of integer;
var a:mas;
    i,j,k,m,n,max,maxj:integer;
    paz,flag:boolean;
begin
     clrscr;
     write ('Введите размер массива ===> ');
     readln (m,n);

     for i:=1 to m do
         for j:=1 to n do begin
                          write ('Ievadiet A (',i,',',j,') ===> ');
                          readln (a[i,j])
                          end;
     {найти элемент,который наибольший в строке,но-наименьший в колонне}
     flag:=False;
     If (n > 1) and (m >1) then
     Begin
     for i:=1 to m do begin
                      max:=a[i,1];
                      maxj:=1;
                      for j:=2 to n do if a[i,j]>max then begin
                                                            max:=a[i,j];
                                                            maxj:=j
                                                          end;
                      paz:=true;
                      for k:=1 to m do if a[k,maxj]<a[i,maxj] then paz:=false;
                      if paz then
                      Begin
                        Flag:=True;
                        writeln ('Искомый элемент находится ',i,'.строка и  ',maxj,'.колонна')
                      End;
                      end;
     End;
     If (Flag = False) and (n > 1) and (m>1) then Writeln('Элементы не открываются.не находятся');
     If (n <= 1) or (m <= 1) then Writeln('Матрица задана неправильно');
     readln
End.

[Сristina]

Novenkaja Спасибо большое! Вы меня спасли!=)