1 2 3 4 5 6 7 8 9 10 11 12 13 14 | DATA -1,2,3DATA 4,-5,6DATA 7,8,-9 CLS RESTORE FOR iy = 1 TO 3: FOR ix = 1 TO 3 READ a: PRINT a; NEXT: PRINT : NEXT: PRINT RESTORE FOR iy = 1 TO 3: FOR ix = 1 TO 3 READ a IF iy > 1 AND a > 0 THEN a = a + a PRINT a; NEXT: PRINT : NEXT |
Тестирование выполнено в программе QB64 ( Скачать )