Введите с клавиатуры целочисленные элементы матрицы 3*3 и вычислите сумму элементов каждого столбца — QBasic(Бейсик)

cls
dim a(3,3)
for i =1 to 3
for j=1 to 3
input a(i,J)
next j
next i
for i=1 to 3
for j =1 to 3
s=s+a(i,J)
next j
? s,
next i

Тестирование выполнено в программе QB64 ( Скачать )