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

disel
1
2
3
4
5
6
7
8
9
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

Похожие записи/страницы:

Leave a Comment