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.