{* Задача151 *}

REM basic

' Дана матрица из 3-х строк и 2-х столбцов. Найти сумму элементов 2-го столбца матрицы.


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
End