@Грек

uses crt;
var mas:array [1..5,1..10] of integer;
masmin:array [1..10] of integer;
i,j,n:integer;
sum,k,min,nomst:integer;


begin
clrscr;
randomize;
for i:=1 to 5 do
for j:=1 to 10 do
begin
mas[i,j]:=random(100);
end;
for i:=1 to 5 do
begin
writeln;
for j:=1 to 10 do
write(mas[i,j]:3);
end;
writeln;
for n:=1 to 10 do
begin
for I:=1 to 5 do
for J:=n to n do
begin
sum:=sum+mas[i,j];
end;
for i:=n to n do
masmin[i]:=sum;
write(masmin[i]:4);
sum:=0;
end;
writeln;
k:=1;
min:=masmin[1];
for i:=2 to 10 do
begin
if masmin[i]<min then
min:=masmin[i];
end;
for i:=1 to 10 do
begin
if masmin[i]<>min then
k:=k+1 else
nomst:=k;
end;
writeln(nomst:3);
writeln;
for i:=1 to 5 do
begin
for J:=1 to 10 do
begin
if j<>nomst then
write(mas[i,j]:5);
end;
writeln
end;
readkey;
end.

0