Question

помогите пожалуйста срочно!

Answer 1

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
              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.