Среднее арифметическое Делфи

[Коккс]

Спасибо, попробую!

[Serge_Bliznykov]

успехов!

4-й этап примерно так может выглядеть:

i:=0;
for k:=0 to nnew-1 do
begin
  ch_cur := chs1[i];
  sum := 0;
  count := 0;
  chsNew[k] := chs1[i];
  while (i<n) and (chs1[i]=ch_cur) do begin
    sum := sum + res[i];
    inc(count);
    inc(i);
  end;
  resNew[k] := sum / count;
end;

P.S. Внимание! Код не проверял!