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. |
