С клавиатуры вводятся N целых чисел. Найти сумму всех положительных среди них — QBasic(Бейсик)

DIM A AS LONG
CLS
INPUT "Kol-vo chisel:", N
FOR i = 1 TO N
    INPUT "Vvedite chislo", A
    IF A > 0 THEN S = S + A
NEXT
PRINT "Summa polojitelnyh:", S

Тестирование выполнено в программе QB64 ( Скачать )

Leave a Comment