[AnderoN]

Всем привет,помогите пожалуйста. В массив ab от микроконтроллера идут значения, мне надо выделять из них каждые 10 пришедших значений складывать их и делить на 10 (находить среднее арифметическое), я для этого сделал цикл

Код:

while bb do (бесконечный цикл)
begin
 for i:=1 to 10 do


end;

В общем я в бесконечный цикл (т.к. заранее не известно сколько значений будет посылать микроконтроллером), пометисл цикл от 1 до 10 ( тоесть должный брать по 10 значений), подскажите как мне теперь сделать чтобы они складывались и делились на 10?

[Snake22]

хмм добавь целотипную переменную,счётчик (например i),и увеличивай ее в цикле,и када она дойдет додесяти,то выполняй условие-складывай и дели.вроде так =)

Код:

var i,ii:integer; ss:double; //
Begin
ii:=0;
i:=0;
while bb do
 begin
  ....твой код...;
  //и условие:
 if i=9 then //НЕ 10 потому что начинается с нуля
   begin
   ss:=(ss+bb[ii])/10;
   i:=0;//обнуляем счетчик
   end
   else inc(i); //увеличиваем счетчик в цикле
 inc(ii);//общий счетчик
end;