Как сделать ввод чисел в одну строку?

@Petro29 · Регистрация: 30.04.2016

Author24 — интернет-сервис помощи студентам

QBasic/QuickBASIC

CLS
DIM A(i)
INPUT “ Ввод чисел в строку: “; x1, x2, x3, x4
PRINT STR$(x1)+STR$(x2)+STR$(x3)+STR$(x4)

На выходе имеем:

QBasic/QuickBASIC

Ввод чисел в строку:  ?  12  -9   21   6
Ввод с начала
   Ввод чисел в строку:  ?  5   7   3   9
Ввод с начала
   Ввод чисел в строку:  ?  7   4   8   2   6

И так до бесконечности.
Вот попытка сделать ввод чисел в одну строку.

QBasic/QuickBASIC

CLS
DIM A(5)
PRINT “  Ввод чисел:”
   FOR i = 1 TO 5
LOCATE 2, i * 3 – 1
   INPUT “ “, A(i)
     S = S + A(i)
   END
   NEXT i
PRINT S

При вводе только положительных чисел имеем
такой выход:

QBasic/QuickBASIC

1 2	Ввод чисел: 12 9 -9 6 2

Почему сумма не срабатывает в этом выходе?
При вводе и отрицательных чисел такой выход:

QBasic/QuickBASIC

  Ввод чисел:
              12   -9  21  6  -2
 
             Ввод с начала
                 4

Почему же такие выходы?
(хорошо, хоть не отказали программки)

	10.10.2019, 15:15