INPUT "vvedite kol-vo strok ", m
INPUT "vvedite kol-vo stolbcov ", n
DIM f(m, n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO m
FOR j = 1 TO n
f(i, j) = INT(RND * 50) / 2 - 10
PRINT f(i, j);
NEXT
PRINT
NEXT
FOR j = 1 TO n
kol = 0
FOR i = 1 TO m
IF f(i, j) = INT(f(i, j)) THEN kol = kol + 1
IF f(i, j) < 0 THEN sum = sum + f(i, j)
NEXT
IF kol > max THEN max = kol: nom = j
NEXT
PRINT "naibolshee kol-vo celyh elementov v stolbce nomer "; nom
PRINT "summa otricatelnyh elementov="; sum