ReDim A(N), B(N)

Dim A(), B()

Private Sub Command1_Click()

End Sub

Next i

Next i

Randomize

ReDim A(N)

Dim A()

Private Sub Command1_Click()

End Sub

Next i

Randomize

P = 1

Dim A(10)

Private Sub Command1_Click()

End Sub

Next i

Randomize

S = 0

Dim A(10)

Private Sub Command1_Click()

End Sub

Next i

Randomize

S = 0

Dim A(10)

Private Sub Command1_Click()

For i = 1 To 10

A(i) = Int(Rnd * 10)

Print "A("; i; ")="; A(i)

S = S + A(i)

Print "S="; S

Задача 2. Составьте программу вычисления суммы четных элементов одномерного целочисленного массива из 10 чисел.

For i = 1 To 10

A(i) = Int(Rnd * 10)

Print "A("; i; ")="; A(i)

If A(i) Mod 2 = 0 Then S = S + A(i)

Print "Сумма чётных элементов ="; S

Строка If A(i) Mod 2 = 0 Then S = S + A(i) проверяет на четность. Возможна другая форма проверки на четность: If A(i)/2 = Int(A(i)/2) Then S = S + A(i)

Задача 3. Составьте программу вычисления произведения ненулевых элементов одномерного целочисленного массива из 10 чисел.

For i = 1 To 10

A(i) = Int(Rnd * 10-1)

Print "A("; i; ")="; A(i)

If A(i) <> 0 Then P = P * A(i)

Print "Произведение ненулевых чисел ="; P

Задача 4. Составьте программу нахождения максимального элемента целочисленного массива из N чисел.

Комментарий: при нахождении максимального или минимального элемента массива действуют по алгоритму. Рассмотрим нахождение максимального. Назначают 1-й элемент массива Мах (максимальным) и в цикле сравнивают наибольший элемент с каждым элементом массива. Если оказывается, что очередной элемент больше ранее назначенного максимальным, то значение этого элемента присваивается переменной Мах.

N = InputBox("Введите количество элементов массива")

For i = 1 To N 'задание элементов массива

A(i) = Int(Rnd * 100)

Print "A("; i; ")="; A(i)

Max = A(1)

For i = 1 To N

If A(i) > Max Then Max = A(i)

Print "Max="; Max

Задача 5. Составьте программу, выясняющую есть ли среди элементов одномерного массива, те, что принадлежат интервалу (C, D) и, если есть, записать их в массив В.

Массив A(N):8 2 –5 0 6 15 –10

Интервал C, D (-7, 5)

Массив B: 2 –5 0

N = InputBox("Введите количество элементов массива")