задача на линейный массив

[Тишуня]

Вычислить среднее арифметическое значение тех элементов одномерного массива, которые попадают в интервал от –2 до 10.

[ZX Spectrum-128]

Sr:=0;
For i:=1 to n do
  If (a[i]>=-2) and (a[i]<=10) then 
    Sr:=sr+a[i];
Sr:=sr/n;

[Son Of Pain]

Осталось только пересчитать делитель. )

[ZX Spectrum-128]

Да, ошибся.

If ... Then
Begin
  ...
  K:=k+1;
End;
Sr:=sr/k;

[Serge_Bliznykov]

...
if k>0 then sr := sr/k
else sr := 0; {или вывести адекватное сообщение о невозможности найти среднеарифметическое, если нужных элементов нет}

[Poma][a]

и тогда уж для полной красоты.. k := 0..