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 | DIM a(3,3) FOR i=1 TO 3FOR i=1 TO 3input "vvedite element ",a(i,j)NEXT NEXT print "ishodnyj massiv "FOR i=1 TO 3FOR i=1 TO 3print a(i,j);NEXT printNEXT FOR i=1 TO 3FOR j=2 TO 3if a(i,j)<0 then a(i,j)=a(i,j) - 4NEXT NEXT print "novyj massiv "FOR i=1 TO 3FOR i=1 TO 3print a(i,j);NEXT printNEXT |
Тестирование выполнено в программе QB64 ( Скачать )