Яких елементів двовимірного масиву у масиві більше: додатних чи від'ємних?
Вхідні дані підібрати самостійно з метою перевірки правильності розробленого
алгоритму.
1. .Розробити блок – схему алгоритму для розв'язку поставленої задачі.
2. Розробити програму на мові Visual Basic для реалізації розробленого алгоритму
Ответы
Код на Visual Basic:
Imports System
Module Program
Sub Main()
' Создание генератора случайных чисел
Dim random As New Random()
' Размеры двумерного массива
Dim rows As Integer = 3
Dim cols As Integer = 3
' Инициализация двумерного массива
Dim array(rows - 1, cols - 1) As Integer
' Заполнение массива случайными числами
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
' Генерация случайного числа от -10 до 10
array(i, j) = random.Next(-10, 11)
Next
Next
' Подсчет количества положительных и отрицательных элементов
Dim positiveCount As Integer = 0
Dim negativeCount As Integer = 0
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
If array(i, j) > 0 Then
positiveCount += 1
ElseIf array(i, j) < 0 Then
negativeCount += 1
End If
Next
Next
' Вывод результатов
Console.WriteLine("Двумерный массив:")
For i As Integer = 0 To rows - 1
For j As Integer = 0 To cols - 1
Console.Write(array(i, j) & " ")
Next
Console.WriteLine()
Next
Console.WriteLine("Количество положительных элементов: " & positiveCount)
Console.WriteLine("Количество отрицательных элементов: " & negativeCount)
If (positiveCount > negativeCount) then
Console.WriteLine("Количество положительных элементов больше")
Else
Console.WriteLine("Количество отрицательных элементов больше")
End If
End Sub
End Module
