Найти максимальный из элементов, расположенных выше 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
28
29
30
REM
CLS
PRINT "Vvedite kolvo strok"
INPUT s
PRINT "Vvedite kolvo stolbcov"
INPUT t
DIM tabl(1 TO s, 1 TO t) AS INTEGER
FOR i = 1 TO s
    FOR j = 1 TO t
        tabl(i, j) = 1 + INT(RND * 100)
        PRINT tabl(i, j)
    NEXT j
    PRINT
NEXT i
max = tabl(1, 1)
PRINT "Vvedite nomer stroki"
INPUT n
FOR i = 1 TO n - 1
    FOR j = 1 TO t
        IF max < tabl(i, j) THEN max = tabl(i, j)
    NEXT j
NEXT i
PRINT "Maksimalniy element vishe"; n; "stroki ="; max
FOR i = 1 TO s
    FOR j = 1 TO t
        IF i MOD 2 = 0 THEN sum = sum + tabl(i, j)
    NEXT j
NEXT i
PRINT "Summa elementov chetnih strok ="; sum
END

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

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

Leave a Comment