Даны несколько чисел (их количество — в первой строке файла, сами числа — во второй). Найти их сумму и записать её в файл — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
OPEN "input.txt" FOR INPUT AS #1
INPUT #1,n
DIM a(n)
FOR i=1 TO n
INPUT #1,a(i)
NEXT
CLOSE
FOR i=1 TO n
s=s+a(i)
NEXT
OPEN"output.txt"FOR OUTPUT AS #2
PRINT #2,s
CLOSE

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

Leave a Comment