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 | CLS DATA Ivanov, 5 , 5 , 5 ,Petrov, 5 , 4 , 3 ,Sidorov, 4 , 3 , 4 ,Jirinovskij, 3 , 3 , 3 ,Putin, 4 , 5 , 5 ,Medvedev, 4 , 5 , 4 ,Obama, 3 , 5 , 3 DIM a$( 7 ), b( 7 , 3 ) FOR i = 1 TO 7 READ a$(i) FOR j = 1 TO 3 READ b(i, j) NEXT NEXT PRINT "familie literatura mathematik physik" FOR i = 1 TO 7 PRINT a$(i), FOR j = 1 TO 3 PRINT b(i, j), NEXT PRINT NEXT PRINT PRINT "summa ballov" PRINT FOR i = 1 TO 7 PRINT a$(i); " summa="; s = 0 FOR j = 1 TO 3 s = s + b(i, j) NEXT PRINT s NEXT |
Тестирование выполнено в программе QB64 ( Скачать )