CLS
n=3:m=2
DIM a(n,m)
RANDOMIZE TIMER
FOR i=1 TO n
FOR j=1 TO m
a(i,j)=INT(RND*101)-50
NEXT j
NEXT i
PRINT "Matrica"
FOR i=1 TO n
FOR j=1 TO m
PRINT a(i,j);
NEXT j
PRINT
NEXT i
PRINT
s=0
FOR i=1 TO n
s=s+a(i,2)
NEXT i
PRINT "Summa vtorogo stolbca=";s
Тестирование выполнено в программе QB64 ( Скачать )