Здравствуйте, maxim387!

Смотрите приложение:
[code lang=pascal h=200]const
n=5;
m=6;
var
a:array[1..n,1..m]of integer;
b,c,d,e:integer;
begin
{вводим матрицу}
for b:=1 to n do
for c:=1 to m do
begin
write('A[',b,',',c,']:=');
readln(a[b,c]);
end;
{задача А}
for b:=1 to m do
begin
d:=1;
for c:=2 to n do
if a[c,b]>a[d,b] then d:=c;
c:=a[d,b];
a[d,b]:=a[n,b];
a[n,b]:=c;
end;
{вывод результата задачи А}
writeln;
writeln('task A');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:3);
writeln;
end;
{задача B}
for b:=1 to n do
begin
d:=0;
for c:=1 to m do
if a[b,c] mod 3=0 then d:=d+a[b,c];
a[b,m]:=d;
end;
{выводим результат задачи В}
writeln;
writeln('task B');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:3);
writeln;
end;
{задача C}
write('Enter col:=');
readln(d);
for b:=1 to n-1 do
for c:=b+1 to n do
if a[b,d]<a[c,d] then
begin
e:=a[b,d];
a[b,d]:=a[c,d];
a[c,d]:=e;
end;
{выводим результат задачиС}
writeln;
writeln('task C');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:3);
writeln;
end;
end.[/code]
Удачи!