zadach35.BAS

{* Задача 35 *}

REM basic

'


CLS
PRINT "Введите число строк матрицы А"
INPUT m 
PRINT "Введите число столбцов матрицы А и число строк матрицы В"
INPUT k
PRINT "Введите число столбцов матрицы В"
INPUT n
Dim a(m,k), b(k,n), с(m,n)
For i=1 To m 
For j=1 To k
PRINT "Введите a("; i; j; ")";
INPUT a(i, j)
Next j
Next i
For i=1 To k  
For j=1 To n
PRINT "Введите  b ("; i; j; ")";
INPUT b (i, j)
Next j
Next i
PRINT "Матрица А"
For i=1 To m
For j=1 To k
PRINT a(i, j);
Next j
PRINT
Next i
PRINT "Матрица В"
For i=1 To k
For j=1 To n
PRINT b(i, j);
Next j
PRINT
Next i
For i=1 To m 
For j=1 To n
S=0
For L=1 To k
S=S+a(i, L)*b(L, j)
Next L
c(i, j)= S
Next j
Next i
PRINT "Матрица С"
For i=1 To m
For j=1 To n
PRINT с(i, j);
Next j
PRINT
Next i
End