Не получается концовка программы

@makkast · Регистрация: 13.05.2010

Студворк — интернет-сервис помощи студентам

Задание такое: Для произвольной матрицы элементы столбца с наименьшей суммой увеличить на их среднее значение.
Написал программу до монмента когда находит среднее но ни как не могу прибавить это среднее к столбцу с наименьшей суммой и вывести(
текст

Pascal

Program v_7;
uses crt;
var a:array[1..20,1..20] of integer;
   m,n, Min, Sum, iMin, i, k: integer;
   srednee: real;
begin
clrscr;
writeln ('wedite chislo stolbsov m=');
readln (m);
writeln ('wedite chislo strok n=');
readln (n);
randomize;
  For i:=1 to n do
begin
For k:=1 to m do
begin
a[i,k]:=random(50);
write(a[I,k]:4);
end;
writeln;
end;
  Sum := 0;
  for i:=1 to m do
  Sum := Sum + a[1,k];
  Min := Sum;
  iMin := 1;
  for k:=2 to n do
  begin
    Sum := 0;
    for i:=1 to n do
    Sum := Sum + a[i,k];
    if Sum < Min then
    begin
      Min := Sum;
      iMin := k;
    end;
    end;
    Writeln('N stolbsa',iMin,'бг¬¬*',Min);
    srednee:=sum/n;
    writeln('srednee=',srednee:5:2);
    
         Readln;
    End.

Опции темы