Заменить в двумерном массиве 1-ый элемент на последний и наоборот — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "kol-vo strok v massive="; n
INPUT "kol-vo stolbtsov v massive="; m
DIM A(n, m)
RANDOMIZE TIMER
PRINT "ishodnyj massiv"
FOR I = 1 TO n
    FOR J = 1 TO m
        A(I, J) = (RND * 100) - 200
        PRINT A(I, J);
    NEXT J
    PRINT
NEXT I
SWAP A(1, 1), A(n, m)
PRINT "poluchennii massiv"
PRINT
FOR I = 1 TO n
    FOR J = 1 TO m
        PRINT A(I, J);
    NEXT J
    PRINT
NEXT I

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

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

Leave a Comment