Вводится массив из n чисел. Вычислить их сумму — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
CLS
Vv: INPUT "Vvedite kol-vo elementov(n): ", n
IF n < 1 THEN PRINT "Vvedite zanovo, n < 1 nedopustimo...": GOTO Vv
DIM M(n), sum
FOR i = 1 TO n
    PRINT "Chislo nomer"; i; ": ";
    INPUT "", M(i)
NEXT
FOR i = 1 TO n
    sum = sum + M(i)
NEXT
PRINT "Summa: "; sum

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

Похожие записи/страницы:

Leave a Comment