1 2 3 4 5 6 7 8 9 10 11 12 13 14 | dim a( 3 , 2 ) for i= 1 to 3 for j= 1 to 2 input a(i,j) next next for j= 1 to 2 f= 0 for i= 1 to 3 if a(i,j)> 0 then f= 1 next s=s+f next print s |
Тестирование выполнено в программе QB64 ( Скачать )