Може ли някой да напише програмата, защото някои неща по точките не ги разбирам, а и нещата които сме учели се разминават със задачата. Ето какво съм написал и до къде съм стигнал Sub skalarno_proizvedenie()Dim Z() As DoubleDim M As Integer, N As IntegerDim i As Integer, j As Integer ' danni ot Excel -> Sheet1Dim W As WorksheetSet W = Application.Worksheets("Sheet1") W.Activate M = 5: N = 5 ReDim Z(1 To M, 1 To N) For i = 1 To M For j = 1 To N Z(i, j) = W.Cells(i, j) Next Nextet1: M = InputBox("m=") N = InputBox("n=")If M = N Then GoTo et2 Else GoTo et1End Ifet2: Dim diag As Double For i = 1 To M For j = 1 To N If i = j Then End Sub Мисля че езика е чисто С