Составить алгоритм и программу для вычисления и вывода на печать в общепринятом виде элемен

z(i, j) = ((2 * x(i) + (y(j)) ^ 2) ^ 1 / 2) + Sin(2) * y(j) / x(i) + y(i) * Log(y(i) + x(i))
 
где i=1,2,…,7; j=1,2,…,7.
 
После вычисления элементов матрицы согласно своему варианту определить: Число положительных элементов в каждом столбце этой матрицы.
 
 
 
 
 
 
 
Option Explicit
 
Private Sub Command1_Click()
' Âû÷èñëåíèå è îáðàáîòêà ýëåìåíòîâ ìàòðèöû
 
' Îïèñàíèå ìàññèâîâ è ïåðåìåííûõ
Dim x(7) As Single, y(7) As Single, z(7, 7) As Single
Dim i As Byte, j As Byte, k As Byte
 
' Ââîä èñõîäíûõ ìàññèâîâ ÷åðåç îêíî ââîäà, âûâîä íà ýêðàííóþ ôîðìó
Print "Çíà÷åíèÿ ìàññèâà X"
For i = 1 To 7
x(i) = Val(InputBox("Ââåäèòå x(i) ", "Ìàññèâ X"))
Print "x("; i; ")="; x(i)
Next i
 
Print "Çíà÷åíèÿ ìàññèâà Y"
For j = 1 To 7
y(j) = Val(InputBox("Ââåäèòå y(j) ", "Ìàññèâ Y"))
Print "y("; j; ")="; y(j)
 
Next j
' Âû÷èñëåíèå è âûâîä íà ïå÷àòü ýëåìåíòîâ ìàòðèöû
Print "Ýëåìåíòû ìàòðèöû"
For i = 1 To 7
For j = 1 To 7
z(i, j) = ((2 * x(i) + (y(j)) ^ 2) ^ 1 / 2) + Sin(2) * y(j) / x(i) + y(i) * Log(y(i) + x(i))
 
Print z(i, j);
Next j
Print
Next i
 
' Âû÷èñëåíèå ñóììû òðåáóåìûõ ýëåìåíòîâ ìàòðèöû
'Íà÷àëüíîå çíà÷åíèå êîëè÷åñòâà ýëåìåíòîâ
k = 0
For i = 1 To 7
For j = 1 To 7
If (z(i, j) > 0) Then k = k + 1  'Ïîäñ÷åò êîëè÷åñòâà ïîëîæèòåëüíûõ ýëåìåíòîâ
Next j
Next i
 
Print "Êîëè÷åñòâà ïîëîæèòåëüíûõ ýëåìåíòîâ ìàòðèöû,  0 k="; k
 
End Sub