Найти сумму S квадратов элементов массива А, значение которых принадлежит интервалу [-10;12] и их количество

Категория: Basic
2011-10-31 14:32:56
code: #basic
INPUT "вв. кол. элементов", N
DIM a(N)
FOR i = 1 TO N
INPUT "введите элемент ",a(i)
NEXT
FOR i = 1 TO N
IF a(i)>=-10 AND a(i)<=12 THEN k=k+1:s=s+a(i)^2
NEXT 
PRINT "Сумма=";s;" Количество=";k

автор: кот Бегемот

Поделиться:

Похожие статьи:

теги: массив, студенты, сумма, интервал, qbasic, сумма квадратов