Uses crt;
Const
n=7;m=10;
var
a:array[1..n,1..m]of integer;
b:array[1..n*m]of integer;
i,j,k,l:integer;
begin
clrscr;
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
end;
k:=0;
for j:=1 to m do
begin
l:=0;
for i:=1 to n do
if (a[i,j]>=1)and(a[i,j]<=30)then<br> begin
inc(k);
b[k]:=a[i,j];
l:=l+1;
end;
writeln('j: ',j,' k: ',l);
end;
writeln;
for i:=1 to k do
write(b[i]:4);
end.