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

disel
1
2
в текстовый файл input.txt заносятся две строки: первая строка: 2 (количество чисел)
вторая строка 3 2 (сами числа)
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

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

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

Leave a Comment