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

Leave a Comment