1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
| uses crt;
const nmax=50;{макс разм матриц}
type Tmatr=array[1..nmax,1..nmax] of integer;{тип матриц}
procedure Vvod(var x:byte; var m:Tmatr; c:char);{создание матриц, размер матрицы, матрица, ее имя -А,В,С}
var i,j:integer;
begin
writeln('Matrica ',c,':');
repeat
write('Vvedite razmer matricy: ');
readln(x);
until (x>0)and(x<=nmax);
for i:=1 to x do
for j:=1 to x do
m[i,j]:=random(20);
end;
procedure Vyvod(x:byte; var m:Tmatr; c:char);{вывод на экран}
var i,j:integer;
begin
writeln('Matrica ',c,':');
for i:=1 to x do
begin
for j:=1 to x do
write(m[i,j]:4);
writeln;
end;
end;
function MaxGl(x:byte;m:Tmatr):integer;{поиск макс на гл диагонали}
var i,j,mx:integer;
begin
mx:=m[1,1];
for i:=1 to x do
if m[i,i]>mx then
mx:=m[i,i];
MaxGl:=mx;
end;
procedure Trans(x:byte;var m:Tmatr);{транспонирование без создания новой матрицы}
var i,j,b,min:integer;
begin
for i:=1 to x do
for j:=1 to x do
if j<i then
begin
b:=m[i,j];
m[i,j]:=m[j,i];
m[j,i]:=b;
end;
end;
var a,b,c,d:Tmatr;{3 исходных матрицы и транспонированная}
xa,xb,xc,xd:byte;{их размеры}
min:integer;{минимальный}
t:char;{символ имени матрицы}
begin
clrscr;
randomize;
Vvod(xa,a,'A');{создаем 3 матрицы}
Vvod(xb,b,'B');
Vvod(xc,c,'C');
clrscr;{очищаем экран}
Vyvod(xa,a,'A');{выводим матрицу}
writeln('Max na gl diagonali=',MaxGl(xa,a));{выводим максимальный не гл диагонали}
readln;{задержка, читаем}
Vyvod(xb,b,'B');
writeln('Max na gl diagonali=',MaxGl(xb,b));
readln;
Vyvod(xc,c,'C');
writeln('Max na gl diagonali=',MaxGl(xc,c));
readln;
min:=MaxGl(xa,a);d:=a;xd:=xa;t:='A';{пусть минимальное в А, запоминаем ее, ее размер и имя}
if MaxGl(xb,b)<min then{если в b меньше, то b}
begin
min:=MaxGl(xb,b);
d:=b;
xd:=xb;
t:='B';
end;
if MaxGl(xc,c)<min then{если в c меньше, то c}}
begin
min:=MaxGl(xc,c);
d:=c;
xd:=xc;
t:='B';
end;
Trans(xd,d);{транспонируем запомненную матрицу}
write('Transponirovannaya ');
Vyvod(xd,d,t);{выводим ее на экран}
readln
end. |
(
Сообщение было отмечено Harrier как решение
