Вычислить среднее арифметическое значение тех элементов одновременного массива, которые в интервал от -2 до 10. размерность массива произвольная. или дан массив, содержащий 12 элементов и заполненный по формуле a=(i-4)/(3*i). найти количество элементов в этом массиве больших 0, но меньших 0,2. (решение писать как в турбо паскале)
const
n=10;
var
a:array [1..n] of integer;
i,s,k:integer;
sr:real;
begin
randomize;
s:=0;
k:=0;
for i:=1 to n do begin
a[i]:=random(31)-10;
write (a[i],' ');
if (a[i]>-2) and (a[i]<10) then
begin
k:=k+1;
s:=s+a[i];
end;
end;
writeln;
sr:=s/k;
writeln (sr:0:2);
readln;
end.