{* zadach93 *}

REM basic

' Даны квадратные матрицы А,В,С порядка 2.
' Получить матрицу D элементы которой ровны dij=(aij+bij)*cij
' a= 2 4
' 8 6;
' b= 1 18
' 0 3;
' c= 4 9
' 5 12


DATA 2,4,8,6
DATA 1,18,0,3
DATA 4,9,5,12
Dim a(2,2),b(2,2),c(2,2)
For i=1 To 2
For j=1 To 2
READ a(i,j)
Next
Next
For i=1 To 2
For j=1 To 2
READ b(i,j)
Next
Next
For i=1 To 2
For j=1 To 2
READ c(i,j)
Next
Next
For i=1 To 2
For j=1 To 2
d(i,j)=(a(i,j)+b(i,j))*c(i,j)
Next
Next
PRINT"massiv d"
For i=1 To 2
For j=1 To 2
PRINT d(i,j);
Next
PRINT
Next
End