1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | DATA 4,0,3,0,0,3,0,2,2,0,1,0,0,1,0,4DIM a(4, 4)FOR i = 1 TO 4 FOR j = 1 TO 4 READ a(i, j) NEXTNEXTFOR i = 1 TO 4 FOR j = 1 TO 4 PRINT a(i, j); " "; NEXT PRINTNEXTFOR i = 1 TO 4 s1 = s1 + a(i, 1) s4 = s4 + a(i, 4)NEXTIF s1 > s4 THEN PRINT " summa 1 bolshe" ELSE IF s4 > s1 THEN PRINT "summa 4 bolshe" ELSE PRINT " summy ravny" |
Тестирование выполнено в программе QB64 ( Скачать )