[poli-smen]

Сообщение от MotoArhangel

Интересует этот кусок

Код:

// проходим по столбцам и вычисляем среднее
for j:=2 to Nmes do
 begin
   for i:=1 to Nceh do
     begin
       //Сумма в столбце
       SredSumm:=SredSumm+a[i,j].rashod;
     end;
       // получаем среднее
       SredSumm:=SredSumm div Nceh;
       // Дописывем в массив среднее значение в дополнительной строке
       a[Nceh+1,j].rashod:=SredSumm;
 end;

Не правильно считает среднее. Сижу, смотрю, понять не могу где накосячил.

Наверное нужно обнулять переменную SredSumm перед вычислением очередного среднего значения.