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 4FOR j = 1 TO 4READ a(i, j)NEXTNEXT FOR i = 1 TO 4FOR j = 1 TO 4PRINT a(i, j); " ";NEXTPRINTNEXT FOR i = 1 TO 4s1 = s1 + a(i, 1)s4 = s4 + a(i, 4)NEXT IF s1 > s4 THEN PRINT " summa 1 bolshe" ELSE IF s4 > s1 THEN PRINT "summa 4 bolshe" ELSE PRINT " summy ravny" |