Массив двумерный помогите)

[Елешечка]

Дана квадратная матрица BN*N. Преобразуйте её следующим образом: в каждой строке поменяйте местами максимальный элемент строки с элементом, стоящим в этой строке на главной диагонали.
Замечание. Выведите на экран исходную и преобразованную матрицы.

[ZX Spectrum-128]

For i:=1 to n do
  Begin
     Max:=a[i,1];
     For j:=2 to n do
        If a[i,j]>max then
         Begin
           Max:=a[i,j];
           Col:=j;
            Row:=i;
          End;
         Temp:= A[row,col];
         A[row,col]:=a[i,i];
         A[i,i]:=temp;
    End;

Проверяйте

[Serge_Bliznykov]

неверно. row мало того, что не нужна, так ещё и может быть не определена!
то же касается и переменной col (может быть не определена!)


да и для поиска максимума индекса достаточно.
я бы такой код предложил:

For i:=1 to n do
  Begin
     col:=1;
     For j:=2 to n do
        If b[i,j]>b[i, col] then
               col:=j;

     temp := b[i,col];
     b[i,col] := b[i,i];
     b[i,i] := temp;
    End;

[ZX Spectrum-128]

Спасибо, не учел.
Как обычно

[Елешечка]

я ещё не пробовала ) сейчас помучую)

я туплю,а как ввод массива осуществить?

program zad1;
const c=10;
var
b: array [1..c,1..c] of real;
temp:real;
m,i,n,j,col:integer;
emptu:boolean;
begin
writeln ('Введите количество элементов;');
readln(m);
for i:=1 to m do
    for j:=1 to m do
    begin

      write('b[',i,',',j,']=');
      readln(b[i,j]);

end;
For i:=1 to n do
  Begin
     col:=1;
     For j:=2 to n do
        If b[i,j]>b[i, col] then
               col:=j;

     temp := b[i,col];
     b[i,col] := b[i,i];
     b[i,i] := temp;
    End;
    end.

что я не так сделала? мне нужно чтобы он вывел получившеюся матрицу)

[Serge_Bliznykov]

нужно дописать вывод массива.
а ещё определитесь, в какой переменной у Вас находится размерность массива n или m

program zad1;
const c=10;
var
b: array [1..c,1..c] of real;
temp:real;
m,i,j,col:integer;
begin
writeln ('Введите количество элементов;');
readln(m);
for i:=1 to m do
    for j:=1 to m do
    begin

      write('b[',i,',',j,']=');
      readln(b[i,j]);
    end;

For i:=1 to m do
  Begin
     col:=1;
     For j:=2 to m do
        If b[i,j]>b[i, col] then
               col:=j;

     temp := b[i,col];
     b[i,col] := b[i,i];
     b[i,i] := temp;
    end;

{вывод полученного массива}
Writeln('Полученный массив:');
for i:=1 to m do begin
    for j:=1 to m do
      Write(b[i,j]:5:2,' ');
    WriteLn;
end;

Readln;

end.

[Елешечка]

спасибо большое вам) я маленько вывод подделаю) а вы не поможете с тремя матрицами задача(