Занести произвольные данные в одномерный символьный массив
Категория: Basic
2011-10-24 14:46:57
code: #basic
CLS DIM arr$(1 TO 5) FOR i = 1 TO 5 INPUT arr$(i) NEXT i PRINT "------" INPUT z$ PRINT "------" FOR i = 1 TO 5 IF z$ <> arr$(i) THEN PRINT arr$(i) END IF NEXT i
автор: Toxa33rus
Поделиться: