Visual basic
1. Сформировать одномерный массив из восьми вещественных значений.
2. Сформировать двумерный массив из А строк и В столбцов.
3. Составить программу для определения максимального и минимального элементов двумерного массива.
4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива.

'1. Сформировать одномерный массив из восьми вещественных значений.Dim M(8) As Single, i As Integer, s As StringFor i = 1 To 8M(i) = Rnd * 20 - 10s = s + CStr(M(i)) + " "NextMsgBox s'2. Сформировать двумерный массив из А строк и В столбцов.Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As StringA = 3B = 5ReDim M(A, B)For i = 1 To AFor j = 1 To BM(i, j) = Rnd * 20 + 2s = s + CStr(M(i, j)) + "   "Nexts = s + vbCrLfNextMsgBox s'3. Составить программу для определения максимального и минимального элементов двумерного массива.Dim M() As Single, i As Integer, j As Integer, A As Integer, B As Integer, s As StringDim Min As Single, Max As SingleA = 3: B = 5Min = 100: Max = 0ReDim M(A, B)For i = 1 To AFor j = 1 To BM(i, j) = Rnd * 20 + 2s = s + CStr(M(i, j)) + "   "If Max < M(i, j) Then Max = M(i, j)If Min > M(i, j) Then Min = M(i, j)Nexts = s + vbCrLfNexts = s + "Max = " & Max & vbCrLfs = s + "Min = " & Min & vbCrLfMsgBox s'4. Сформировать одномерный массив из 10 целых элементов. Найти сумму положительных и четных элементов массива.Dim M(10) As Integer, i As Integer, sum As Integer, s As String, s1 As StringFor i = 1 To 10M(i) = Rnd * 20 - 10s = s + CStr(M(i)) + " "If (M(i) > 0) And (M(i) Mod 2 = 0) Then s1 = s1 + CStr(M(i)) + " ": sum = sum + M(i)Nexts = s + vbCrLfs = s + s1 + vbCrLfs = s + "sum = " & sumMsgBox s