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 | DEFINT A-ZAgain: CLS ' Чистим экран INPUT "Vvedite kol-vo chisel: ", n ' IF n < 3 GOTO Again ' В массиве из 1 числа нет смысла FOR i = 1 TO n PRINT " Vvedite chislo №" + LTRIM$(STR$(i)); ": "; INPUT "", c IF c > 0 THEN k = k + 1 IF c > max THEN max = c ' Промежуточный буфер(мб файл или память) ' Я выбрал строку, т.к. с ней просто работать ' и её размер динамически меняется. Buf$ = Buf$ + LTRIM$(STR$(c)) + "_" NEXT PRINT STRING$(40, 196) IF k > 0 THEN ' Если положительные числа есть DIM A(k) ' Заведём массив FOR i = 1 TO n st1$ = LEFT$(Buf$, INSTR(Buf$, "_") - 1) Buf$ = RIGHT$(Buf$, LEN(Buf$) - INSTR(Buf$, "_")) z = VAL(st1$): IF z > 0 THEN f = f + 1: A(f) = z NEXT: PRINT "Posledovatelnost :" FOR i = 1 TO k PRINT A(i); NEXT: PRINT PRINT "MAX ="; max ELSE ' Если положительных чисел нет PRINT "Pologitelnyh chisel v posledovatelnosti net!!!" END IF |
Тестирование выполнено в программе QB64 ( Скачать )