Помогите пожалуйста решить задачу в Паскале

не знаю

[среднее арифметическое] = [сумма элементов] /[количество элементов].
Необходимо объявить две переменных: сумма элементов, например, S и количество элементов, например, SCount.
1. для переменных S и SCount присваиваете начальное значение = 0
2. Запускаете цикл по количеству элементов массива
3. в цикле выполняете проверку: если значение элемента находится в диапазоне от -2 до 10, то:
3.1. увеличиваете счетчик SCount на 1
3.2. увеличиваете значение суммы на значение элемента
4. после цикла выводите значение S/SCount

randomize;
for i:=1 to 25 do begin
a[i]:=random(20)-5;
if (a[i]>=-2)and(a[i]<=10)then begin
s:=s+1;
b:=b+a[i];
end;
end;
write('Среднее арифметическое - ',b/s);