Матрица а вводится построчно не по порядку, начиная с указания номера строки. Расположить элементы строк в матрице, при этом повторяющиеся строки исключить — QBasic(Бейсик)

INPUT "vvedite kol-vo strok ", m
INPUT "vvedite kol-vo stolbcov ", n
DIM a(m, n)
DO
INPUT "vvedite nomer stroki ", t
PRINT "vvedite elementy "; t; " stroki:"
FOR j = 1 TO n
INPUT "vvedite element ", a(t, j)
NEXT
INPUT "prodoljim? (d/n+enter) ", t$
LOOP UNTIL t$ = "n"
PRINT "massiv"
FOR i = 1 TO m
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT

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

Leave a Comment