Задачи на Turbo Pascal 7.0 (8224) / Все типовые задачи писать здесь

AZelensky:
[more] И ещё спрошу: как всё так и В матрице поменять местами I-тую строку и J-тый столбец?

Вот код:


Код:

USES CRT; CONST MaxElI = 30; MaxElJ = 30; Var MatrixMass: array [1..MaxElI, 1..MaxElJ] of REAL; b: REAL; n: INTEGER; i, j, a: BYTE; Begin CLRSCR; write('Enter max element: '); READ(n); writeln('Enter values: '); For i:= 1 to n Do begin For j:= 1 to n Do begin write('Element ', i, 'x', j, ' : '); READLN(MatrixMass[i, j]); end; end; writeln('The resulting matrix: '); For i:= 1 to n Do begin For j:= 1 to n Do write(MatrixMass[i, j]:0:0, ' '); writeln; end; ReadLN; For a:= 1 to n Do If a <= n then begin b:= MatrixMass[a, i]; MatrixMass[i, a]:= MatrixMass[a, i]; MatrixMass[a, i]:= b; end; writeln('Final matrix:'); For i:= 1 to n Do begin For a:= 1 to n Do write(MatrixMass[a, i]:0:0, ' '); writeln; end; ReadLN; end.

Но мне сказал преподаватель, что нужно ввести какую именно I-тую строку и J-тый столбец хотим поменять местами. [/more]