Помоги написать алгоритм для решения задач на языке Visual Basic
1. Найти сумму всех элементов массива A(n)
2. Найти произведение всех элементов массива A(n)
3. Найти среднее арифметическое всех элементов массива A(n)
4. Найти среднее арифметическое положительных элементов массива A(n)
5. Найти сумму положительных элементов массива А(n), кратных k
6. Найти произведение всех отрицательных элементов массива A(n)
7. Найти сумму четных отрицательных элементов массива A(n)
8. Найти произведение всех нечетных элементов массива A(n), кратных k
9. Найти среднее арифметическое всех нечетных чисел массива A(n), кратных 3
10.Найти сумму min и max в массиве A(n)
11.Найти max среди отрицательных элементов массива A(n)
12.Найти min среди положительных элементов массива A(n), не кратных k 13.Упорядочить массив A(n)
14.Упорядочить все положительные элементы массива A(n) 15.Упорядочить все нечетные элементы массива A(n), кратные k
Ответы
Ответ:
1) Найти сумму всех элементов массива A(n):
sum = 0
For i = 0 To n - 1
sum = sum + A(i)
Next i
2) Найти произведение всех элементов массива A(n):
product = 1
For i = 0 To n - 1
product = product * A(i)
Next i
3) Найти среднее арифметическое всех элементов массива A(n):
sum = 0
For i = 0 To n - 1
sum = sum + A(i)
Next i
average = sum / n
4) Найти среднее арифметическое положительных элементов массива A(n):
count = 0
sum = 0
For i = 0 To n - 1
If A(i) > 0 Then
sum = sum + A(i)
count = count + 1
End If
Next i
average = sum / count
5) Найти сумму положительных элементов массива А(n), кратных k:
sum = 0
For i = 0 To n - 1
If A(i) > 0 And A(i) Mod k = 0 Then
sum = sum + A(i)
End If
Next i
6) Найти произведение всех отрицательных элементов массива A(n):
product = 1
For i = 0 To n - 1
If A(i) < 0 Then
product = product * A(i)
End If
Next i
7) Найти сумму четных отрицательных элементов массива A(n):
sum = 0
For i = 0 To n - 1
If A(i) < 0 And A(i) Mod 2 = 0 Then
sum = sum + A(i)
End If
Next i
8) Найти произведение всех нечетных элементов массива A(n), кратных k:
product = 1
For i = 0 To n - 1
If A(i) Mod 2 <> 0 And A(i) Mod k = 0 Then
product = product * A(i)
End If
Next i
9) Найти среднее арифметическое всех нечетных чисел массива A(n), кратных 3:
count = 0
sum = 0
For i = 0 To n - 1
If A(i) Mod 2 <> 0 And A(i) Mod 3 = 0 Then
sum = sum + A(i)
count = count + 1
End If
Next i
average = sum / count
10) Найти сумму min и max в массиве A(n):
min = A(0)
max = A(0)
For i = 1 To n - 1
If A(i) < min Then
min = A(i)
End If
If A(i) > max Then
max = A(i)
End If
Next i
sum = min + max
11) Найти max среди отрицательных элементов массива A(n):
max = Integer.MinValue
For i = 0 To n - 1
If A(i) < 0 And A(i) > max Then
max = A(i)
End If
Next i
12) Найти min среди положительных элементов массива A(n), не кратных k:
min = Integer.MaxValue
For i = 0 To n - 1
If A(i) > 0 And A(i) Mod k <> 0 And A(i) < min Then
min = A(i)
End If
Next i
13) Упорядочить массив A(n):
Array.Sort(A)
14) Упорядочить все положительные элементы массива A(n):
Dim positiveElements As New List(Of Integer)
For i = 0 To n - 1
If A(i) > 0 Then
positiveElements.Add(A(i))
End If
Next i
positiveElements.Sort()
For i = 0 To n - 1
If A(i) > 0 Then
A(i) = positiveElements(i)
End If
Next i
15) Упорядочить все нечетные элементы массива A(n), кратные k:
Dim oddElements As New List(Of Integer)
For i = 0 To n - 1
If A(i) Mod 2 <> 0 And A(i) Mod k = 0 Then
oddElements.Add(A(i))
End If
Next i
oddElements.Sort()
For i = 0 To n - 1
If A(i) Mod 2 <> 0 And A(i) Mod k = 0 Then
A(i) = oddElements(i)
End If
Next i
Массив A уже объявлен и заполнен элементами перед выполнением этих алгоритмов. Вы также можете внести соответствующие изменения в код, чтобы он соответствовал вашим конкретным потребностям.