1 2 3 4 5 6 7 8 9 10 11 12 13 14 | CLSINPUT "vvedite n"; nDIM a(n)FOR i = 1 TO n INPUT "zapolnite massiv"; a(i)NEXTDO j = j + 1 IF (a(j) AND 1) = 0 THEN k = k + 1LOOP UNTIL k = 3 OR j = nIF k = 3 THEN PRINT "nomer tretego chetnogo jelementa:"; jELSE PRINT "net treh chetnyh jelementov"END IF |
Тестирование выполнено в программе QB64 ( Скачать )