Программный код в Бейсике

[Богдан Величко]

Помогите записать программный код, для условия:
Определить среднее арифметическое значение элементов массива F(n), которые удовлетворяют требованию -3<= F(I) <= 5. Если таких элементов нет, вывести на экран дисплея сообщение: «Элементов, удовлетворяющих требованию, в массиве нет».
Спасиб всем, кто откликнется!

[Alex11223]

Алгоритм примерно такой: "проходите" весь массив циклом (for) и проверяете с помощью if каждый элемент: если он соответствует требованиям, то в одну переменную прибавляете его значение, а вторую (счетчик) увеличиваете на 1. Чтобы получить среднее арифметическое надо первую разделить на вторую (или вывести сообщение если она 0).

[Богдан Величко]

Спасибо за подсказку, но я все равно не пойму как это все написать... Если можно, то хоть грубые наброски записей кода напишите, а то я в Бейсике, как в лесу дремучем...

[*PB*]

Ну бейсик так бейсик.

If OpenConsole()
  
  n = 20   ; Число элементов массива
  Dim F(n) ; Наш массив
  
  ; Заполняем массив случайными числами
  For i=1 To n : F(i)=Random(20)-10 : Next 
  
  z = 0 : a = 0
  For i=1 To n
    If -3<=F(i) And F(i)<= 5
      PrintN(Str(F(i)))
      a + F(i)
      z + 1
    EndIf
  Next 
  
  If z = 0
    PrintN("Элементов, удовлетворяющих требованию, в массиве нет.")
  Else
    PrintN("Среднее арифметическое значение: "+Str(a/z))
  EndIf
  
  Input()
  
EndIf

Скомпилированная программа во вложении.

[Богдан Величко]

Спасибо огромное!!! Очень помогли!!!