[Goodi52]

Всем привет. Помогите плиз разобраться с лажовой задачей. Вроде все правильно а работает вообще не так как надо (выдает не верный результат)Можете просто другое решение дать.

Задание
Определить элемент, имеющий минимальное отклонение
от среднего значения элементов массива.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  m:array[1..10] of integer;
  i:integer;
  s:real;
  c:integer;
  t:integer;
begin
s:=0;
c:=0;
t:=100;
Label2.Caption:='';
for i:=1 to 10 do
begin
 randomize;
 m[i]:=random(10);
 Label2.Caption:= Label2.Caption+inttostr(m[i])+' ';
 c:=c+m[i];
end;
s:= c div i;
for i:=1 to 10 do
  if abs(s-m[i])<t then
    t:=m[i];
Label1.Caption:='Среднее значение равно '+floattostr(s);
Edit1.Text:=inttostr(t);

Admin: Не забываем про теги!

Спасибо.

[Harlequin]

пиши s:= c / 10;
вместо s:= c div i;

[Phedor]

Читай внимательно задание =)
Спрашивается элемент, а не само значение отклонения

[Goodi52]

все равно не правильно работает

[Goodi52]

так я и ищу элемент - t

[Goodi52]

Я понял в чем дело
if abs(s-m[i])<t then
t:=m[i];
вместо t надо abs(s-t) вставить!!извините за тупую темуclose