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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
INPUT" vvedite razmer massiva n ",n
DIM a(n)
RANDOMIZE TIMER;
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

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

Leave a Comment