var a: array[1..10,1..5] of integer;i,j:byte;chsl: array[1..5] of integer;sum,nmr,id:integer;
begin
   for i:=1 to 5 do begin
    for j:=1 to 10 do begin
      a[j,i]:=random(-100,100);
      sum:=sum+a[j,i];
      end;
    chsl[i]:=sum;
    sum:=0;
    end;
   nmr:=chsl[1];
   for i:=1 to 5 do begin
     If chsl[i]<nmr Then begin nmr:=chsl[i];id:=i; end;
     if id = 0 then id:=1;
     end;
   writeln('Исходный массив: ');
   for i:=1 to 10 do begin
    for j:=1 to 5 do begin
      write(a[i,j],' ');
      end;
    writeln();
    end;
   writeln();
   writeln('Cтолбец матрицы, сумма значений элементов которого наименьшая: ');
   for i:=1 to 10 do begin
   writeln(a[i,id]);
   end;
   writeln();
   writeln('Индекс столбца: ',id,' | Сумма значений элементов: ',nmr)
end.