Найти среднее арифметическое и исключить элемент, наиболее близкий к к этому значению (Delphi)

[Natashakosmos]

Помогите решить задачку в Delphi!!
В заданном массиве a1, a2, …, an исключить элемент, наиболее близкий к среднему арифметическому.

[doktor255]

Складываешь все элементы, делишь сумму на количество элементов в массиве, в цикле от начала массива до конца массива ищешь наименьшую разницу между полученным значением и элементом массива. Нашёл наименьшую, исключил. Что не ясно?

[Stilet]

Помогите решить задачку в Delphi!!

Чем именно помочь?

[Sasha_Smirnov]

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

Нашёл наименьшую, исключил. Что не ясно?

А если не одна такая? Радоваться рано!

[Mad_Cat]

const n=5;
var
sa,r:real;
a:array[1..n] of real;
i,k:integer;
begin
Randomize;
sa:=0;
for i:=1 to n do  begin
a[i]:=random(10)+1;
sa:=sa+a[i];
write(a[i]:7:0);
end;
writeln;
sa:=sa/n;
writeln('avg=',sa:7:1);
r:=abs(sa-a[1]);k:=1;
for i:=2 to n do
if abs(sa-a[i])<r then begin r:=abs(sa-a[i]);k:=i;end;
for i:=k to n-1 do
a[i]:=a[i+1];
for i:=1 to n-1 do
write(a[i]:7:0);
readln;
end.

2 6 8 4 3
avg= 4.6
2 6 8 3