среднее значение

[MyQwErTy]

type matrix=array[1..10,1..5] of integer;
       masreal=array[1..10] of real;
var B:matrix;
Sred:masreal;
i,j:integer;
begin
for i:=1 to 10 do
      begin
      for j:=1 to 5 do
      Sred[i]:=(B[i,j]+B[i,j]+B[i,j]+B[i,j]+B[i,j])/5;
      end;
      clrscr;
      gotoXY(1,2);
      for i:=1 to 10 do
writeln('Sred[',i,']',Sred[i]:5:2);
      readln;

у меня проблема, после расчета среднего значения каждой строчки матрицы получается такой результат:
3.0
2.0
4.0
...
но там должны получаются дробные числа: например вместо 3.0 должно быть 2.8.
посмотрите, пожалуйста, в чем дело??

[_Dmitry]

Замените данный код

for j:=1 to 5 do
  Sred[i]:=(B[i,j]+B[i,j]+B[i,j]+B[i,j]+B[i,j])/5;

на

Sred[i]:=0;
for j:=1 to 5 do
  Sred[i]:=Sred[i]+B[i,j];
Sred[i]:=Sred[i]/5;

Надеюсь, что матрицы у вас где-то заполняются значениями...

[MyQwErTy]

всё работает, спасибо!
можете объяснить почему сначала не работало??

[_Dmitry]

Если сложить 5 одинаковых чисел и разделить на 5 то что получиться? Это же число.
Первоначально программа печатала числа B[i,5], т.е.
B[1,5], B[2,5], B[3,5], B[4,5], B[5,5], B[6,5], B[7,5], B[8,5], B[9,5], B[10,5],