Определить сумму абсолютных величин всех элементов массива - VB
Формулировка задачи:
Ребят помогите очень прошу, надо вот 3 лабы сделать к завтрашнему буду рад любой помощи
№1 дан массив 4 на 4:
1) определить сумму абсолютных величин всех элементов
2) найти максимальный элемент побочной диагонали
3) определить количество положительных элементов в каждом столбце
№2 для заданного массива чисел:
-32, -24 ,-12, 1.6, 13.5
34, 53, 93, 120, 190
1)определить номер первого положительного элемента
2)сформировать массив из трёх последовательных элементов исходного массива, начиная с последнего отрицательного элемента
№3 Для заданной матрицы:
1) найти числа положительных элементов в каждой строке
2) найти минимальный элемент матрицы
3) найти сумму элементов главной диагонали
Решение задачи: «Определить сумму абсолютных величин всех элементов массива»
textual
Листинг программы
Private Sub Command1_Click() Dim arr1(3, 3) As Double Dim i, h As Integer Dim dblSum, dblMax As Double Dim int1 As Integer arr1(3, 0) = 9 arr1(2, 1) = -70 arr1(1, 2) = -1 arr1(0, 3) = 69 arr1(0, 0) = 156 For i = 0 To 3 For h = 0 To 3 dblSum = dblSum + Abs(arr1(i, h)) Next Next MsgBox ("Сумма равна " & dblSum) h = 3 For i = 0 To 3 If arr1(h, i) > dblMax Then dblMax = arr1(h, i) h = h - 1 Next i MsgBox ("Макс. число равно " & dblMax) For i = 0 To 3 int1 = 0 For h = 0 To 3 If arr1(h, i) > 0 Then int1 = int1 + 1 Next h MsgBox ("Положительных чисел в столбце №" & i + 1 & " - " & int1) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д