Квадратная матрица

[_Marchel_]

Задана матрица X[N,N], где N<=15. В каждом столбце матрицы поменять местами минимальный элемент и элемент главной диагонали. Преобразованную матрицу вывести на экран.

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

program ABC;
const Nmass=15;
var X:array[1..Nmass,1..Nmass] of integer;
 N,min,i,j,z: integer;
begin
 cls;
 //ручной ввод массива
 writeLn('Введите число элементов в массиве X');
 readLn(N);
 writeLn('Вводим элементы массива X:');
 for i:=1 to N do
 for j:=1 to N do
 begin
 write('X[',i,',',j,']=');
 readLn(X[i,j]);
 end;
 //вывод массива до измененния 
 
 writeLn('Исходный массив X:');
 for i:=1 to N do
 begin
 for j:=1 to N do
 write(X[i,j]:5);
 writeLn;
 end;
 // замена элементов
 For j:=1 to n do
 begin
  min:=9999;
 for i:=1 to n do
 If x[i,j] < min then
 begin
 min:=x[i,j];
 X[j,j]:=min;
 end;
 end;
 //вывод массива поле измененния
 writeLn;
 writeLn('массив X после изменения:');
 for i:=1 to N do
 begin
 for j:=1 to N do
 write(X[i,j]:5);
 writeLn;
 end;
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

не, не так..

попробуйте такой код:

  // замена элементов
 For j:=1 to n do
 begin
   // поиск минимального элемента в столбце
   minRowIndex:=1;
   for i:=2 to n do
     If X[i,j] < X[minRowIndex,j] then minRowIndex:=i;

   //обменяем элементы местами
   tempX := X[j,j];
   X[j,j] := X[minRowIndex,j];
   X[minRowIndex,j] := tempX;
  
 end;

не забудьте в var описать переменную minRowIndex типа Integer
и переменную tempX такого же типа, как элементы массива X (в данном случае, тоже типа Integer)

если что-то непонятно, то спрашивайте.

[Aleksandr H.]

надо не только MIN искать, но и помнить его позицию J,I

If x[i,j] < min then
 begin
    min:=x[i,j];
    mini:=i;minj:=j;
 end;
    x[j,j]      :=x[j,j]+x[mini,minj];
    x[mini,minj]:=x[j,j]-x[mini,minj];
    x[j,j]      :=x[j,j]-x[mini,minj];

upd. minj=j полюбому. значит вместо minj пишем j

[_Marchel_]

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

не, не так..

попробуйте такой код:

  // замена элементов
 For j:=1 to n do
 begin
   // поиск минимального элемента в столбце
   minRowIndex:=1;
   for i:=2 to n do
     If X[i,j] < X[minRowIndex,j] then minRowIndex:=i;

   //обменяем элементы местами
   tempX := X[j,j];
   X[j,j] := X[minRowIndex,j];
   X[minRowIndex,j] := tempX;
  
 end;

не забудьте в var описать переменную minRowIndex типа Integer
и переменную tempX такого же типа, как элементы массива X (в данном случае, тоже типа Integer)

если что-то непонятно, то спрашивайте.

спасибо большое, всё работает, очень помогли !

Сообщение от Aleksandr H.

надо не только MIN искать, но и помнить его позицию J,I

If x[i,j] < min then
 begin
    min:=x[i,j];
    mini:=i;minj:=j;
 end;
    x[j,j]      :=x[j,j]+x[mini,minj];
    x[mini,minj]:=x[j,j]-x[mini,minj];
    x[j,j]      :=x[j,j]-x[mini,minj];

upd. minj=j полюбому. значит вместо minj пишем j

большое спасибо, возьму на заметку !

[Aleksandr H.]

Serge_Bliznykov, подскажите такой момент: массив Х - integer, заполняю его, например,

a[i,j]:=10000+random(500)

тогда код ТС не будет работать из-за строки

min:=9999;

. Для обхода етого случая надо min приcваивать не 9999, а значение первого елемента столбца j. Вопрос: почему у меня получилось такое большое число (см скрин)? или проблема не в

 min:=a[1,j]

[Аватар]

mini тоже начальное значение нужно - минимум может быть в первой строке

[Serge_Bliznykov]

Сообщение от Аватар

mini тоже начальное значение нужно - минимум может быть в первой строке

опередили!

всё так.
в вашем случае мало написать

min:=a[1,j];

нужно

mini:=1;
min:=a[1,j];

но вообще, я бы предложил значение min вообще не хранить.
Какой в этом смысл, если у Вас есть переменная mini, где находится индекс минимального значения?!
Выбросите min и вместо неё пишите X[mini,j]

смотрите, например, мой пример выше...

[Аватар]

Попробовал на Д7, там еще выпендреж компилятора с оптимизацией цикла в отладке. Обмен так сделать и все будет Ok

    k:=x[j,j];
    x[j,j]:=x[mini,j];
    x[mini,j]:=k;

[Aleksandr H.]

Сообщение от Аватар

Попробовал на Д7, там еще выпендреж компилятора с оптимизацией цикла в отладке. Обмен так сделать и все будет Ok

    k:=x[j,j];
    x[j,j]:=x[mini,j];
    x[mini,j]:=k;

это классика обмена, а я решил выделаться и без вспомогательной переменной обойтись "криатифф низащитан"