полностью убрать дробную часть числа

[Rainz]

Array A: 1 2 3 4
Array B: 12 12 12

Srednee arifmiticheskoe: 1.57243576029510E+0007
Srednee arifmiticheskoe: 5.24146453431702E+0006

Это разве правильно? 36/3 = 5.2....

[ROMA2PVT]

function SredArifm(inX:mas; x:integer):real;
var
i:integer;
sr:real;
begin
for i:=1 to x do
  sr:=sr+inX[i];
sr:=sr/x;
SredArifm:=sr;
end;

функцию переделай вот так.

function SredArifm(inX:mas; x:integer):real;
var
i:integer;
sr:real;
begin
sum:=0;
for i:=1 to x do
  sum:=sum+inX[i];
sr:=sum/x;
SredArifm:=sr;
end;

[Rainz]

Заработало! Огромное спасибо!
Не подскажешь как на паскале в строке текста найти слово которое больше пяти символов, но меньше 8?

[ROMA2PVT]

...................