uses crt var array of integer max integer begin clrscr writeln Исходна

 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
uses crt;
var m:array[1..7,1..7]of integer;
i,j,max:integer;
begin
clrscr;
writeln('Исходная матрица');
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
m[i,j]:=i+j;
write(m[i,j]:3);
end;
writeln;
end;
for j:=1 to 7 do
begin
max:=m[1,j];
for i:=1 to 7 do if m[i,j]>max then max:=m[i,j];
writeln('Максимальный элемент в ',j,'-ом столбце равен',max);
end;
max:=1;
for i:=1 to 7 do if m[i,i]>max then max:=m[i,i];
writeln('Максимальный элемент в главной диагонали равен',max);
max:=1;
for i:=1 to 7 do if m[i,7-1+i]>max then max:=m[i,i];
writeln('Максимальный элемент в побочной диагонали равен',max);
readln;
end.