Код:
uses Crt;
const n=3; m=4;
var a:array[1..(n+1),1..(m+1)] of integer;
i,j,t,k,max,sum:integer;
begin
ClrScr;
for i:=1 to n do
begin
for j:=1 to m do
Read(a[i,j]);
Readln;
end;
Writeln;
for i:=1 to n do
begin
for j:=1 to m do
Write(a[i,j]:5);
Writeln;
end;
Writeln;
t:=n+1;
j:=1;
repeat
max:=-Maxint;
for i:=1 to n do
if a[i,j]>max
then max:=a[i,j];
a[t,j]:=max;
Inc(j);
until j>m;
for i:=1 to t do
begin
for j:=1 to m do
Write(a[i,j]:5);
Writeln;
end;
Writeln;
i:=1; t:=m+1;
repeat
sum:=0;
for j:=1 to m do
if (a[i,j] mod 3)=0
then sum:=sum+a[i,j];
a[i,t]:=sum;
Inc(i);
until i>(n+1);
for i:=1 to n+1 do
begin
for j:=1 to t do
Write(a[i,j]:5);
Writeln;
end;
Writeln;
repeat
Write('Nomer stolbca = ');
Readln(k);
until (k>0) and (k<(t+1));
Writeln;
t:=n+1;
for i:=1 to t-1 do
for j:=1 to t-i do
if a[j,k]<a[j+1,k]
then
begin
max:=a[j,k];
a[j,k]:=a[j+1,k];
a[j+1,k]:=max;
end;
for i:=1 to t do
begin
for j:=1 to m+1 do
Write(a[i,j]:5);
Writeln;
end;
ReadKey;
end.