1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLSAgain: INPUT "Vvdedite kol-vo indeksov : ", nIF n < 1 GOTO Again DIM A(n) AS INTEGER, B(n) AS INTEGER, i AS INTEGERFOR i = 1 TO n PRINT " Komponenta vectora s ndeksom"; i; INPUT ": ", A(i)NEXT: PRINT ' Копируем нужные компонентыFOR i = 1 TO n IF ((i AND 1) = 1) AND ((A(i) AND 1) = 0) AND (A(i) < 0) THEN B(i) = A(i)NEXT: PRINT ' РезультатPRINT "Novij vektor:"FOR i = 1 TO n PRINT B(i);NEXT: PRINT |
Тестирование выполнено в программе QB64 ( Скачать )