Задачи по qbasic

[Anonim69]

Задали малой в школе задачки,а я бэйсик не проходил.А сейчас сидеть разбираться нет времени,да и ещё работа.Задачки простенькие:

Найти сумму элементов s массива A ,значения которых принадлежит интервалу [-17;25] и их количество.

[Anonim69]

Ой извиняюсь,не задачки,а задача.

[Qaliti]

CLS
input "Введите длину массива:", n
DIM A(n)
s = 0
for i=1 to n step 1
input "Введите число:", A(i)
if A(i) >= -17 then if A(i) <= 25 then s = s + A(i)
next i
print "Сумма элементов:", s
END

Здесь пользователь сам вводит массив и сразу же считается сумма нужных значений. Можно переделать на рандомное заполнение массива и после пересчет суммы. Смотря что требуется в задачи =)

[Anonim69]

Сообщение от Qaliti

CLS
input "Введите длину массива:", n
DIM A(n)
s = 0
for i=1 to n step 1
input "Введите число:", A(i)
if A(i) >= -17 then if A(i) <= 25 then s = s + A(i)
next i
print "Сумма элементов:", s
END

Здесь пользователь сам вводит массив и сразу же считается сумма нужных значений. Можно переделать на рандомное заполнение массива и после пересчет суммы. Смотря что требуется в задачи =)

Спасибо Qaliti,вроде помогло.

Ребят ещё одна задачка

Найти среднее арифметическое SA элементов массива А, значение которых принадлежат интервалу (-23; 20) их количество k.

[gagalu]

sin1 sin2 sin3 заранее спасибо
__ + __ + ___ + .......
1*2 2*3 3*4