Написать программу для нахождения суммы всех отрицательных элементов массива (5,5) — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
В блокноте создаем текстовый файл:
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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

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

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

Leave a Comment