Задание по VBA

Question

В одномерном массиве,
состоящем из n
вещественных элементов, вычислить:
1) сумму положительных элементов массива;
2) произведение элементов массива,
расположенных между максимальным по модулю и минимальным по модулю элементами.

И вторая:
Информация
об авиарейсах содержит следующие данные: наименование пункта назначения, номер
рейса, время вылета (часы и минуты) ,
цену билета.
Написать программу, в которой:
1)обеспечить ввод данных с клавиатуры
и сохранение их в типизированном файле;
2)организовать
выборку из типизированного файла информации о рейсах с ценой билета больше
средней, в заданный пункт назначения, вывод данных о них в текстовый файл.

Антонина · Accepted Answer

было бы по с++ сделал бы, а так...

Александр Приходько · Answer

Могу сделать, пиши в личку.

Николай Саркисов · Answer

Для первой задачи код на VBA будет такой:
Option Base 1

Sub Fignya()
Dim A() As Double
Dim n, i, imax, imin As Integer
Dim S As String
Dim max, min, sum, proiz As Double

n = InputBox("Введите кол элементов массива n = ")
ReDim A(n)
For i = 1 To n
A(i) = InputBox("Элемент A(" & i & ")=")
Next i
S = "Массив:" + Chr(13) + Chr(10)
For i = 1 To n
S = S & Str(A(i)) & " "
Next i
S = S + Chr(13) + Chr(10)
max = Abs(A(1))
imax = 1
min = Abs(A(1))
imin = 1
For i = 2 To n
If (Abs(A(i)) > max) Then
max = Abs(A(i))
imax = i
End If
If (Abs(A(i)) < min) Then
min = Abs(A(i))
imin = i
End If
Next i
sum = 0
proiz = 1
If (imax < imin) Then
imax = imax + imin
imin = imax - imin
imax = imax - imin
End If
For i = imin To imax
If (A(i) > 0) Then
sum = sum + A(i)
End If
proiz = proiz * A(i)
Next i
S = S + Chr(13) + Chr(10)
S = S + "сумма положительных, расположенных между максимальным по модулю и минимальным по модулю элементами: " + Str(sum)
S = S + Chr(13) + Chr(10)
S = S + "произведение, расположенных между максимальным по модулю и минимальным по модулю элементами: " + Str(proiz)
MsgBox (S)

End Sub

а вторую вам кто-нибудь другой сделает