на самом деле оочень срочно))

[screep]

помощь оказана, тема более не актуальна)

[Olympian]

и что с этим делать?

[screep]

пля, я влин в ставку картинок)) ща скину и усе буит понятно

[screep]

ну вот, собсна, все) надеюсь на скорую помощь)
зы: надеюсь скорая помощь будет не как наша "скорая помощь"=/

[puporev]

for i:=1 to 16 do
begin
if ch[i]<sre then
begin
h:=h+1;
ch[h]:=i;
end;

Может ch[h]:=ch[i];

[Serge_Bliznykov]

1) лучше бы вы проект (исходный текст модуля + форма) запаковали и выложили сюда (через расширенный режим - управление вложениями).
2) честно говоря, лично я не понял, что не так, что должно быть, что за массив "ch, который ниже sre"?! :-(

[Serge_Bliznykov]

о. так неверно:
for i:=1 to 16 do
begin
s:=s+ch[i];
sre:=s/16;
end;
надо так:

for i:=1 to 16 do
   s:=s+ch[i];
sre:=s/16;

в цикле не надо делить на 16!! надо всё просуммировать, а потом разделить один раз...

[screep]

2Serge_Bliznykov: проект в архиве. проблема собсна не в этом. среднее значение он и так правильно считает. ну посмотрите проект, думаю поймете в чем проблема.

зы: спачибо всем кто откликнулся, надеюсь с вашей помощью удастся одолеть данную траблу))

[screep]

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

Может ch[h]:=ch[i];

к сожалению нет=((

[puporev]

Так, нашел ошибку.
1. В разделе var добавь a:array[1..16]of integer;
Соответственно здесь перепиши.

for i:=1 to 16 do
        begin
                if ch[i]<sre then
                begin
                  h:=h+1;
                  a[h]:=i;
                end;
        end;

  for i:=1 to h do
  begin
  StringGrid1.Cells[0,k] := floattostr(i);
  StringGrid1.Cells[1,k] := zd[(a[i])];
  StringGrid1.Cells[2,k] := floattostr(ch[(a[i])]);