Помогите правильно задать интервал..

[Игорь_Алхимик]

Необходимо найти среднее значение чисел в интервале. Я задал: "от 6 до -6"... Ввёл массив {1 2 3 4 5 6 7 8 9 10}, следовательно в интервал попадают числа от "1 до 6" включительно.. И среднее значение их равно 21/6... Но в итоге программа пишет "0".......Вопрос детский, за это извиняюсь, но мозги под другое заточены)) Прошу помощи)))

Код:

Program massiv;
var i,n:integer; S,SR :real;
A:array [1..10] of real;
begin write ('ввод размерности массива'); read (n);
      write ('ввод элементов массива');
for I:= 1 to n do read (A[i]);
S:=0; 
if (A[i]<= 6) and (A[i]>= -6) then begin S:= S+A[i];  end;
SR:= S/n;
writeln ('SR=', SR:8:2);
end.

Как указать программе, что необходимо поделить не на общее количество чисел в массиве, а на то, которое соответствует заданному интервалу ??? Воот!!!

[Аватар]

S:=0;
for I:= 1 to n do begin
  read (A[i]);
  if (A[i]<= 6) and (A[i]>= -6) then S:= S+A[i];
end;
SR:= S/n;

Ну и спокойненько можно было вообще без массива обойтись

[Игорь_Алхимик]

Сообщение от Аватар

S:=0;
for I:= 1 to n do begin
  read (A[i]);
  if (A[i]<= 6) and (A[i]>= -6) then S:= S+A[i];
end;
SR:= S/n;

Ну и спокойненько можно было вообще без массива обойтись

Нее, нужно в массиве)))

[Serge_Bliznykov]

так устроит?

Program massiv;
var 
  i, n, k : integer; 
  S,SR : real;
  A : array [1..10] of real;
begin 
  write ('ввод размерности массива'); read (n);
  write ('ввод элементов массива');
  for i:= 1 to n do read (A[i]);
  S:=0;  
  nk := 0;
  if (A[i]<= 6) and (A[i]>= -6) then begin S:= S+A[i]; inc(nk)  end;
  if nk=0 then  WriteLn('В массиве нет нужных элементов в заданном интервале!')
  else begin
     SR:= S/nk;
     writeln ('SR=', SR:8:2);
  end;
end.

[Аватар]

Так больше устроит, а то опять подсчет суммы из цикла вывалился

S:=0; nk := 0;
for I:= 1 to n do begin
  read (A[i]);
  if (A[i]<= 6) and (A[i]>= -6) then begin S:= S+A[i]; Inc(nk); end;
end;
if nk=0 then  WriteLn('В массиве нет нужных элементов в заданном интервале!')
else begin
   SR:= S/nk;
   writeln ('SR=', SR:8:2);
end;

[Serge_Bliznykov]

Так больше устроит, а то опять подсчет суммы из цикла вывалился

блин, спасибо за поправку.
я просмотрел косяк TC и повторил его.

[Игорь_Алхимик]

Всем огромное спасибо, товарищи!!