Дан массив из 12 чисел.Найти сумму чисел массива,начиная с первого числа большего 51- QBasic(Бейсик)

DIM a(1 TO 12) AS SINGLE
DIM S AS SINGLE, f AS INTEGER
  CLS
  ' Заполнение массива
  FOR i = 1 TO 12
     PRINT "Vvedite "; i; ":"; : INPUT "", a(i)
  NEXT i
  'Подсчет суммы
  FOR i = 1 TO 12
     IF a(i) > 51 THEN f = 1
     IF f = 1 THEN S = S + a(i)
  NEXT i
  ' Вывод результата
PRINT "Summa : "; S

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

Leave a Comment