Код
Option Explicit
Sub êðç1()
Dim a(100) As Integer
Dim i As Integer
Dim N As Integer
Dim K As Integer
Dim R As Integer
For i = 1 To 100
Cells(1, i) = Int(Rnd * 100 - 50)
a(i) = Cells(1, i)
Next i
For i = 1 To 100
If a(i) Mod 2 = 0 Then
a(i) = a(i) * 2
Cells(3, i) = a(i)
End If
Next i
For i = 1 To 100
If a(i) Mod 2 <> 0 Then
a(i) = a(i) - 1
Cells(3, i) = a(i)
End If
Next i
For K = 1 To 100 - 1
For i = 1 To 100 - K
If a(i) < a(i + 1) Then
R = a(i)
a(i) = a(i + 1)
a(i + 1) = R
End If
Next i
Next K
For i = 1 To 100
Cells(5, i) = a(i)
Next i
If a(i) Mod 5 = 2 Then
a(i) = Cells(7, i)
a(i) = a(i + 1)
For i = 1 To 100
Next i
N = N - 1
End If
End Sub
Sub êðç1()
Dim a(100) As Integer
Dim i As Integer
Dim N As Integer
Dim K As Integer
Dim R As Integer
For i = 1 To 100
Cells(1, i) = Int(Rnd * 100 - 50)
a(i) = Cells(1, i)
Next i
For i = 1 To 100
If a(i) Mod 2 = 0 Then
a(i) = a(i) * 2
Cells(3, i) = a(i)
End If
Next i
For i = 1 To 100
If a(i) Mod 2 <> 0 Then
a(i) = a(i) - 1
Cells(3, i) = a(i)
End If
Next i
For K = 1 To 100 - 1
For i = 1 To 100 - K
If a(i) < a(i + 1) Then
R = a(i)
a(i) = a(i + 1)
a(i + 1) = R
End If
Next i
Next K
For i = 1 To 100
Cells(5, i) = a(i)
Next i
If a(i) Mod 5 = 2 Then
a(i) = Cells(7, i)
a(i) = a(i + 1)
For i = 1 To 100
Next i
N = N - 1
End If
End Sub
Помогите пожалуйста проверить код, а задача звучит так
Задан одномерный массив F(N). В данном массиве выполнить:
1. Увеличить все чётные элементы массива в два раза, а нечётные уменьшить на единицу. Полученный массив распечатать.
2. Элементы полученного массива расположить по убыванию. Массив распечатать.
3. Удалить из вновь образованного массива все элементы, кратные пяти. Массив распечатать.
4. Во вновь образованной последовательности вычислить сумму чётных элементов и вставить это значение перед каждым элементом, кратным трем. Значение суммы и вновь образованный массив распечатать.
И если не затруднит подскажите как сделать четвертую часть ну очень надо. Заранее благодарен.