Используя операторы open, input#n, print#n, print# using, close написать программу для нахождения суммы всех отрицательных элементов массива (5,5) — Basic(Бейсик)

сначала в том же qbasic или в блокноте создаём такой текст:

3 -8 5 12 -4
-5 3 11 -10 1
7 -15 1 -16 2
22 17 9 -6 -14
21 -23 12 24 -18

и сохраняем его под именем input.txt в той же папке, где и QBasic.exe
а потом запускаем программу:

DIM a(5, 5)
OPEN "input.txt" FOR INPUT AS #1
FOR i = 1 TO 5
FOR j = 1 TO 5
INPUT #1, a(i, j)
NEXT
NEXT
CLOSE
PRINT "massiv"
FOR i = 1 TO 5
FOR j = 1 TO 5
PRINT a(i, j); " ";
NEXT
PRINT
NEXT
FOR i = 1 TO 5
FOR j = 1 TO 5
IF a(i, j) < 0 THEN s = s + a(i, j)
NEXT
NEXT
OPEN "output.txt" FOR OUTPUT AS #2
PRINT #2, s
CLOSE
PRINT USING "####.##"; s

Leave a Comment