Массив N чисел. Найти сумму со 2-го по N-1 — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT " vvedite razmer massiva n ", n
DIM a(n)
RANDOMIZE time
PRINT "massiv"
FOR i = 1 TO n
    a(i) = INT(RND * 20)
    PRINT a(i); " ";
NEXT
PRINT
FOR i = 2 TO n - 1
    s = s + a(i)
NEXT
PRINT "summa="; s

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

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

Leave a Comment