Определить сумму абсолютных величин всех элементов массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4.4 из 5
Похожие ответы