1 2 3 4 5 6 7 8 9 10 | ' Zavodim tselochislennii massivDIM R(15) AS INTEGER' Zapolnyaem yegoFOR i = 1 TO 15 R(i) = (RND * 5) - 2NEXT: CLS' Pechataem nulevie znacheniyaFOR i = 1 TO 15 IF R(i) = 0 THEN PRINT iNEXT |
Тестирование выполнено в программе QB64 ( Скачать )