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 | INPUT "vvedite razmer massivov N ", n DIM a(n), b(n), c(n) PRINT "vvedite elementy massiva A" FOR i = 1 TO n PRINT "a("; i; ")="; INPUT a(i) NEXT PRINT "vvedite elementy massiva B" FOR i = 1 TO n PRINT "b("; i; ")="; INPUT b(i) NEXT PRINT "massiv a" FOR i = 1 TO n PRINT a(i); NEXT PRINT PRINT "massiv b" FOR i = 1 TO n PRINT b(i); NEXT PRINT FOR i = 1 TO n IF a(i) * b(i) >= 0 THEN c(i) = 1 ELSE c(i) = 0 NEXT PRINT "massiv c" FOR i = 1 TO n PRINT c(i); NEXT |
Тестирование выполнено в программе QB64 ( Скачать )