Составить программы для одномерных и двумерных массивов.

Sub nn()
Cells.Clear
summ = 0
For i = 1 To 15
Cells(i, 1) = Int(Rnd * 10)
summ = summ + Cells(i, 1)
Next i
MsgBox "Среднее арифметическое=" & summ / 15
Cells(15, 1) = summ / 15
End Sub

Private Sub CommandButton1_Click()
 
Dim A() As Single, i As Integer, sr As Single
Dim sum As Single
N = InputBox("Введите число элементов массива", "", "15")
 
ReDim A(N) As Single
Randomize
 
For i = 1 To N
A(i) = Int(Rnd() * 100 - 50)
Cells(i + 1, 2) = A(i)
sum = sum + A(i)
Next
sr = sum / N
A(N) = sr
 
For i = 1 To N
Cells(i + 1, 4) = A(i)
Next
End Sub

Private Sub CommandButton1_Click()
Dim N() As Integer, i As Integer, j As Integer, k As Integer, z As Integer
Dim sum() As Integer, maxS As Integer, w As Integer
Cells.Clear
k = InputBox("Введите число строк", "", "10")
m = InputBox("Введите число столбцов", "", "20")
ReDim N(k, m), sum(m) As Integer
Randomize
 
For i = 1 To k
For j = 1 To m
N(i, j) = Rnd() * 120 - 50
Cells(i + 1, j + 2) = N(i, j)
If N(i, j) < 0 Then
N(i, j) = 0
End If
Next
Next
 
For i = 1 To k
For j = 1 To m
Cells(i + 2 + k, j + 2) = N(i, j)
Next
Next
 
For j = 1 To m
For i = 1 To k
If j Mod 2 = 0 Then
sum(j) = sum(j) + N(i, j)
End If
Next
If j Mod 2 = 0 Then
Cells(i + 3 + k, j + 2) = sum(j)
End If
Next
 
End Sub

Private Sub CommandButton1_Click()
Dim N() As Integer, i As Integer, j As Integer, k As Integer, z As Integer
Dim sum() As Integer, minS() As Integer, w As Integer
Cells.Clear
k = InputBox("Введите число строк", "", "11")
m = InputBox("Введите число столбцов", "", "13")
ReDim N(k, m), sum(m) As Integer, minS(k) As Integer
Randomize
 
For i = 1 To k
minS(i) = 1000
For j = 1 To m
N(i, j) = Rnd() * 120 - 50
Cells(i + 1, j + 2) = N(i, j)
If minS(i) > N(i, j) Then
minS(i) = N(i, j)
End If
Next
Cells(i + 1, j + 3) = minS(i)
Next
 
End Sub