Двумерные массивы

[Никита757]

В матрице найти наибольший элемент каждого столбца и поменять его местами с соответствующим диагональным элементом. Вывести новую матрицу. Я написал все, только у меня он меняет максимальный и минимальный элементы в столбце, а мне нужно, чтобы он менял максимальный с соответствующим диагональным элементом

program Matrix;
var
min,max,j,i,M,N:integer;
a: array [1..10,1..10] of real;
temp:real;
begin
// Ввод данных 
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов (значения от 0 до 10) ');
for i:=1 to M do begin
writeln(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;
for i:=1 to N do
begin
min:=1; max:=1;
for j:=1 to M do
begin
if a[min,i]>a[j,i] then min:=j;
if a[max,i]<a[i,j] then max:=j;
end;
temp:=a[min,i];
a[min,i]:=a[max,i];
a[max,i]:=temp;
end;
writeln;
writeln('Ответ');
for i:=1 to M do begin
writeln;
for j:=1 to N do write(a[i,j],' ');
end;
end.

[Aleksandr H.]

а так?

temp:=a[max,i];
a[max,i]:=a[i,i];
a[i,i]:=temp;

p.s.
он написал - нагло содрал где-то код и выдает за свой. СамПишущий не будет искать минелемент если его не надо искать по условию

[Stilet]

temp:=a[i,i];
a[i,i]:=a[max,i];
a[max,i]:=temp;

Годится?

P.S. Опоздал...

[alex234]

Пробовал понять, как работает программа, но через полчаса забил...

Вот вариант, близкий к оригиналу:

program Matrix;
var
j,i,M,N,iMax,jMax:integer;
a: array [1..10,1..10] of real;
temp:real;
begin
// Ввод данных 
writeln('Введите числа M (M<=10) и N (N<=10)');
read(M); readln(N);
writeln('Введите по ',N,' элементов (значения от 0 до 10) ');
for i:=1 to M do begin
writeln(i,' строки : ');
for j:=1 to N do read(a[i,j]);
end;


// определение индексов максимального элемента и перемена его с элементом, у которого
//индекс столбца равен индексу строки
For j:=1 to N do   
   begin
      iMax:=1; jMax:=j;
      For i:=2 to M do
         If A[i,j]>A[iMax,jMax] then
            begin
               iMax:=i;
               jMax:=j;
            end; //If
      temp:=A[j,j];
      A[j,j]:=A[iMax,jMax];
      A[iMax,jMax]:=temp;
end; //For


writeln;
writeln('Ответ');
for i:=1 to M do begin
writeln;
for j:=1 to N do write(a[i,j],' ');
end;
end.

Для проверки {Ввод данных} можешь заменить генератором массива:

M:=5; N:=5;
For i:=1 to M do
   For j:=1 to N do
      A[i,j]:=Random(10);

For i:=1 to M do
      begin 
         For j:=1 to N do Write(A[i,j]:2);
         WriteLn;
      end;

Он, правда, только для целых чисел, но я б на твоём месте так и оставил.