если в какой либо строке нет отрицательных элементов, вывести на экран соответствующее сообщение
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 | INPUT "vvedite kol-vo strok ", m INPUT "vvedite kol-vo stolbcov ", n DIM h(m, n) RANDOMIZE TIMER FOR i = 1 TO m FOR j = 1 TO n h(i, j) = INT(RND * 100 ) - 50 NEXT NEXT PRINT "massiv" FOR i = 1 TO m FOR j = 1 TO n PRINT h(i, j); NEXT PRINT NEXT max = h( 1 , 1 ) sum = 0 kol = 0 FOR i = 1 TO m sum = 0 FOR j = 1 TO n IF h(i, j) > max THEN max = h(i, j) IF h(i, j) < 0 THEN sum = sum + h(i, j): kol = kol + 1 NEXT sr = sum / kol PRINT "stroka="; i; IF sr <> 0 THEN PRINT " srednee="; sr ELSE PRINT "otricatelnyh net" NEXT |