Question

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

Answer 1

begin   Randomize;   for i := 1 to n do     for j := 1 to n do       X[i,j] := Random(100);     for i := 1 to n do begin     IndMax := 1;     max :=X[i,1];     for j := 2 to n do begin       if X[i,j]>max then begin         max := X[i,j]; //Наибольший элемент строки с номером i         IndMax := j;  //Столбец, в котором находится наибольший элемент строки                            //с номером i       end;     end;   //Смена элементов     X[i,IndMax] := X[i,i];     X[i,i] := max;   end;   end;