program matrix;
uses crt;
var a:array[1..4,1..7]of integer;
    b:array[1..4]of integer;
    c:array[1..28]of integer;
    i,j,max,jmax,min,jmin,k:integer;
begin
clrscr;
{vvod i rasp matr}
writeln('ischod matr');
randomize;
for i:=1 to 4 do
  begin
    for j:=1 to 7 do
      begin
        a[i,j]:=random(15)+5;
        write(a[i,j]:3);
      end;
    writeln;
  end;
readln;
{podschet po stolbcham}
for j:=1 to 7 do
  begin
   for i:=1 to 4 do
      begin
        b[j]:=b[j]+a[i,j];
      end;
 end;
{vyvod summ}
for j:=1 to 7 do
writeln('sum v stb',j,'=',b[j]);
readln;
{jmax i jmin}
min:=b[1];jmin:=1;max:=b[1];jmax:=1;
for j:=2 to 7 do
   begin
     if b[j]then
        begin
          min:=b[j];jmin:=j;
        end;
     if b[j]>max then
        begin
          max:=b[j];jmax:=j;
        end;
   end;
writeln('jmax=',jmax);
writeln('jmin=',jmin);
readln;
{odnomern mass}
for i:=1 to 4 do
     for j:=1 to 7 do
       if a[i,j]<=10 then
            begin
              k:=k+1;
              c[k]:=a[i,j];
              a[i,j]:=0;
            end;
writeln('obrabot matr');
for i:=1 to 4 do
   begin
     for j :=1 to 7 do
       begin
         write(a[i,j]:3);
      end;
    writeln;
  end;
writeln;
writeln('massiv elementov <=10:');
for i:=1 to k do
write(c[i],' ');
readln;
end.