массив целых чисел

[-ushёl-]

каким способом возможно найти в одномерном массиве число,наиболее приближённое по своему значению к среднему? т.е. например создан массив из 5и чисел(3|5|8|1|7) и из массива средним числом являеться по идеи число 5.Задачу решил,но с ошибкой!подскажите,как можно её исправить?? ЗАДАЧА:Создать массив целых чисел.Найти элемент,наиболее приближённый по своему значению к среднему.Вывести его на экран и вычислить a1+a2^2+a3^3+...an^n. вот моё решение: const
N=5;
var
M:array[1..N] of integer;
a,s,min,max,st:integer;
chs,ss:real;
begin
for a:=1 to N do
begin
M[a]:=Random(10);
{write(M[a], '|');}
end;
s:=0;
st:=0;
ss:=0;
max:= M[1];
min:= M[1];
for a:=1 to N do
begin
s:=s+M[a];
if M[a] < min then
min:= M[a]
else
if M[a] > max then
max:= M[a];
st:=st+1;
chs:=Exp(st * Ln(M[a]));
ss:=ss+chs
end;
for a:=1 to N do
write(M[a], '|');
writeln;
writeln('среднее число массива = ',trunc(s/N));
writeln('сумма степенного многочлена =',ss);
end.

[maladoy]

Среднее у вас 4.8,а не 5 а trunc(4.8) вернет 4! а для определения наиболее близкого к среднему ищете abs(m[a]-sred) чем оно меньше тем ближе!

[-ushёl-]

да надобно найти среднее число из представленных массивом.вот в чём вопрос-то!

[maladoy]

var i,sred:integer
    a:array [1..5] of integer;
   raz,sr:real;
begin
sr:=0;
for i:=1 to 5 do
 begin
readln(a[i]);
sr:=sr+a[i];
end;
sr:=sr/5;
raz:=abs(a[1]-sr);
sred:=a[1];
for i :=2 to 5 do
if abs(a[i]-sr)<raz then begin
raz:=abs(a[i]-sr);
sred:=a[i];
end;
writeln('naib bliz k sred',sred);
readln;end.

[-ushёl-]

РЕСПЕКТЪ!ТО ЧТО НУЖНО!!!