USES CRT;
CONST
MaxElI = 75;
MaxElJ = 75;
Var
MatrixMass: array [1..MaxElI, 1..MaxElJ] of REAL;
temp: array [1..MaxElI] of REAL;
n: INTEGER;
i,j,k: 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 i:= 1 to n-1 Do
For j:= i + 1 to n Do
If (MatrixMass[i,i] > MatrixMass[j,j]) then begin
for k:=1 to n do temp[k]:=MatrixMass[k,i];
for k:=1 to n do MatrixMass[k,i]:=MatrixMass[k,j];
for k:=1 to n do MatrixMass[k,j]:=temp[k];
end;
For i:= 1 to n Do begin
For j:= 1 to n Do
write(MatrixMass[i, j]:0:0, ' ');
writeln;
end;
ReadLN;
end.
|
