Другие языки программирования и технологии
Помогите пожалуйста составить программы для следующих задач:
1.Найти среднее арифметическое элементов массива А(15).Заменить последний элемент массива среднеарифметическим. 2.Присвоить значение "0" всем отрицательным элементам массива N(10,20) и определить сумму каждой четной колонки. 3.Определить минимальный элемент каждого ряда массива М(11,13) Буду очень благодарна за помощь! Только результаты каждой задачи должны выводиться в окно отладки через debug.print. И попроще программы можно сделать?
Sahib Selimov
1 447
Скажи лучше, что не получается и что не поняла из того, чему тебя учили. Потом ведь сложнее будет.
1. Что такое среднеарифметическое? Просуммируйте элементы циклом, и поделите на ноль (шутка) .
2. Создаёте одномерный массив, каждый элемент которого будет суммой столбиков. Цикл по строкам, цикл по столбикам, условие нуля, условие чётности колонки, суммирование.
3. Тоже самое что и (2), только вместо байды с условиями, ищите минимальный элемент строки.
Что за среда хоть? Паскаль, VB?
2. Создаёте одномерный массив, каждый элемент которого будет суммой столбиков. Цикл по строкам, цикл по столбикам, условие нуля, условие чётности колонки, суммирование.
3. Тоже самое что и (2), только вместо байды с условиями, ищите минимальный элемент строки.
Что за среда хоть? Паскаль, VB?
Sahib Selimov
vba
1. Dim N() As Integer, t As String, z As Integer, sr As Single, j As Integer, d As Integer
m = InputBox("Введите размерность массива", "", "20")
ReDim N(m) As Integer
For i = 1 To m
N(i) = Rnd() * 100 - 50
Cells(i + 1, 2) = N(i)
If N(i) < 0 Then
k = k + 1
End If
Next
t = "Всего отрицательных элементов = " & k & Chr(13) & "Введите номер отрицательного элемента"
d = InputBox(t, "", k)
k = 0
For i = 1 To m
If N(i) < 0 Then
k = k + 1
If d = k Then
j = i
End If
End If
If N(i) > 0 Then
z = i
End If
Next
Cells(2, 4) = "Значение " & d & "-го отрицательного элемента = " & N(j)
Cells(3, 4) = "последнего положитeльный элемента = " & N(z)
sr = (N(j) + N(z)) / 2
Cells(4, 4) = "среднее арифметическое значение = " & sr
End Sub
m = InputBox("Введите размерность массива", "", "20")
ReDim N(m) As Integer
For i = 1 To m
N(i) = Rnd() * 100 - 50
Cells(i + 1, 2) = N(i)
If N(i) < 0 Then
k = k + 1
End If
Next
t = "Всего отрицательных элементов = " & k & Chr(13) & "Введите номер отрицательного элемента"
d = InputBox(t, "", k)
k = 0
For i = 1 To m
If N(i) < 0 Then
k = k + 1
If d = k Then
j = i
End If
End If
If N(i) > 0 Then
z = i
End If
Next
Cells(2, 4) = "Значение " & d & "-го отрицательного элемента = " & N(j)
Cells(3, 4) = "последнего положитeльный элемента = " & N(z)
sr = (N(j) + N(z)) / 2
Cells(4, 4) = "среднее арифметическое значение = " & sr
End Sub
Похожие вопросы
- Помогите пожалуйста составить программу на СИ++. Заранее всем БЛАГОДАРЕН!
- Помогите пожалуйста составить программу и блок-схему (какой-либо один из трех вариантов)
- Помогите пожалуйста составить программу на Паскале, используя оператор case
- помогите пожалуйста составить программу в паскале
- помогите пожалуйста составить программу на Delphi/
- Помогите пожалуйста составить программу в Qbasic обычного квадратного уравнения...очень нужно...
- Помогите пожалуйста составить программу по теме массивы.
- Помогите пожалуйста составить программу в VB!
- Помогите, пожалуйста, составить программу на С++: .
- Помогите пожалуйста составить программу на С++
Dim A() As Single, i As Integer, sr As Single
Dim sum As Single
N = InputBox("Введите число элементов массива", "", "15")
ReDim A(N) As Single
Randomize
For i = 1 To N
A(i) = Int(Rnd() * 100 - 50)
Cells(i + 1, 2) = A(i)
sum = sum + A(i)
Next
sr = sum / N
A(N) = sr
For i = 1 To N
Cells(i + 1, 4) = A(i)
Next
End Sub
Нужно сделать с debug.print чтоб было.