Дан двухмерный массив M*N элементов. Посчитать сумму положительных чисел для каждой строки и количество положительных во всем двухмерном массиве — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
CLS
INPUT "vvedite kolichestvo strok"; ny
INPUT "vvedite kolichestvo stolbcov"; nx
DIM a(ny, nx), s(ny)
FOR y = 1 TO ny
    FOR x = 1 TO nx
        PRINT "vvedite element, stroka ="; y; "stolbec ="; x
        INPUT a(y, x)
    NEXT
NEXT
FOR y = 1 TO ny
    FOR x = 1 TO nx
        IF a(y, x) > 0 THEN s(y) = s(y) + a(y, x): k = k + 1
    NEXT
NEXT
CLS
PRINT "matrica"
FOR y = 1 TO ny
    FOR x = 1 TO nx
        PRINT a(y, x);
    NEXT
    PRINT
NEXT
FOR y = 1 TO ny
    PRINT "summa"; y; "stroki ="; s(y)
NEXT
PRINT "kolichestvo polozhitelnyh ="; k

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

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

Leave a Comment