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

1)
[code lang=pascal h=160]var
a:array[1..10]of integer;
b,c:integer;
begin
for b:=1 to 10 do
begin
a[b]:=random(3);
write(a[b]:3);
end;
writeln;
b:=1;
while b<10 do
if (a[b]<>0)and(a[b+1]=0)then
begin
c:=a[b];
a[b]:=a[b+1];
a[b+1]:=c;
b:=1;
end
else inc(b);
for b:=1 to 10 do
write(a[b]:3);
writeln;
end.[/code]

2а)
[code lang=pascal h=160]const
n=10;
m=15;
var
a:array[1..n,1..m]of integer;
b,c,d:integer;
e:boolean;
begin
writeln('create;');
for b:=1 to n do
begin
for c:=1 to m do
begin
a[b,c]:=random(10)-1;
write(a[b,c]:3);
end;
writeln;
end;
writeln('result:');
for c:=1 to m do
begin
e:=false;
d:=0;
for b:=1 to n do
begin
e:=e or (a[b,c]<0);
d:=d+a[b,c];
end;
if e then write(d:3) else write(' ':3);
end;
end.[/code]

2в)
[code lang=pascal h=160]const
n=3;
m=5;
var
a:array[1..n,1..m]of integer;
b,c,d:integer;
e:boolean;
begin
writeln('create:');
for b:=1 to n do
begin
for c:=1 to m do
begin
write('a[',b:2,',',c:2,']:=');
readln(a[b,c]);//:=random(100);
end;
writeln;
end;
writeln('mareix:');
for b:=1 to n do
begin
for c:=1 to m do
write(a[b,c]:3);
writeln;
end;
writeln('result:');
for b:=1 to n do
for c:=1 to m do
begin
e:=true;
for d :=1 to n do
if d<>b then e:=e and (a[b,c]>a[d,c]);
for d :=1 to m do
if d<>c then e:=e and (a[b,d]>a[b,c]);
if e then write('a[':5,b:2,',',c:2,']:=',a[b,c])
end;
end.[/code]

Удачи!