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

Спасибо

Ой там ошибка

var a:array [1..10] of integer;i,n,s:integer;begins:=0;for i:=1 to 10 doa[i]:=random(101);for i:=1 to 10 dowrite ('a[',i,']=',a[i],' ');writeln;for i:=1 to 10 doif (a[i] mod 2=0) then begins:=s+a[i];write ('a[',i,']=',a[i],' '); end;writeln;write (s);end.

Вот теперь точно оно

Спасибо

var  i,s,t,n:integer;  a:array[1..100] of integer;begin write('Write size array: ');readln(n); for i:=1 to n do  begin   a[i]:=Random(150)-50;   write(a[i]:4);  end; s:=0; t:=0; for i:=1 to n do  if (a[i]>=-2) and (a[i]<=10)   then begin s:=s+a[i]; inc(t); end; writeln('Average: ',s/t:0:2); readln;end.