Напишите программу с процедурой, которая считает среднее арифметическое среднесуточных температур месяца и количество дней когда температура была выше 100, но ниже 320. Значения среднесуточных температур вводятся с клавиатуры, всего 30 значений.

Sub aaa()
    n = CInt(InputBox("n="))
    x = CDbl(InputBox("x="))
    sx = Cos(x)
    s = sx
    For i = 2 To n
        sx = Cos(sx)
        s = s + sx
    Next i
    MsgBox s
End Sub

Попробуй это решение
Var A:array[1..10000] of integer;i,x,d,n:integer;Beginreadln(x,d,n);A[1]:=x;For i:=2 to n doA[i]:=A[i-1]+d;
For i:=1 to n dowrite(a[i],);End.

Рассматриваются значения массива с индексами от 1 до 8.
Если его значение больше минус двух (-2), то прибавляем единицу (1) к переменной k, изначально равной нулю (0).
Просмотрим все значения (от 1 до 8):
R[1] = -12 > -2? Условие не выполняется, k остаётся прежним.
R[2] = -3 > -2? Условие не выполняется, k остаётся прежним.
R[3] = -5 > -2? Условие не выполняется, k остаётся прежним.
R[4] = -6 > -2? Условие не выполняется, k остаётся прежним.
R[5] = 4 > -2? Условие выполняется, k = k + 1 = 0 + 1 = 1
R[6] = 9 > -2? Условие выполняется, k = k + 1 = 1 + 1 = 2
R[7] = 0 > -2? Условие выполняется, k = k + 1 = 2 + 1 = 3
R[8] = 8 > -2? Условие выполняется, k = k + 1 = 3 + 1 = 4

Ответ: 4.

На каком языке нужна программа?