Задан массив A из 13 элементов(2,13,-21,32,7,11,9,-5,4,-15,21.8.3)определить сумму всех...

Question

Задан массив A из 13 элементов(2,13,-21,32,7,11,9,-5,4,-15,21.8.3)определить сумму всех элементов,которые больше числа 10 и найти количество положительных.Язык QBASIK

Answer 1

DATA 2,13,-21,32,7,11,9,-5,4,-15,21,8,3
DIM a(1 TO 13) AS INTEGER
s = 0: k = 0
FOR i = 1 TO 13
   READ a(i)
   IF a(i) > 10 THEN s = s + a(i)
   IF a(i) > 0 THEN k = k + 1
NEXT i
CLS
PRINT "S="; s; ", kol-vo polozhitelnykh="; k

Результат
S= 77 , kol-vo polozhitelnykh= 10