[AnderoN]

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

Код:

1 2 3 4 5 6

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

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

[Snake22]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

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;