REM A.

Временные переменные
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim g As Single
REM B. Рабочие массивы
Dim ba(10) As Integer REM Временный массив
Dim bg(10) As Single REM Временный массив
Dim bd(10) As Integer, be(10) As Integer REM Массивы со случайными данными
REM C. Генерация данных в массиве
L3.Text = ""
For a = 0 To 9
bd(a) = Int(Rnd() * 21) - 10
L3.Text = L3.Text & bd(a) & " "
Next
L3.Text = L3.Text & Chr(10)
For a = 0 To 9
be(a) = Int(Rnd() * 21) - 10
L3.Text = L3.Text & be(a) & " "
Next
REM 33.1.20.1
For a = 0 To 9
ba(a) = 0
Next
REM 34.2.21.2
b = 0
For a = 0 To 9
b = b + bd(a)
Next
L3.Text = L3.Text & Chr(10) & Chr(10) & "2. Сумма элементов " & b
REM 36.4.23.3
For a = 0 To 9
ba(a) = bd(a)
Next
REM 37.5.24.4
a = 0
b = 0
c = 0
For d = 0 To 9
If bd(d) < 0 Then a = a + 1
If bd(d) = 0 Then b = b + 1
If bd(d) > 0 Then c = c + 1
Next
L3.Text = L3.Text & Chr(10) & "4. Отрицательных: " & a & ", нулевых: " & b & ", положительных: " & c
REM 41.1.29.5
For a = 0 To 9
ba(a) = ba(a) + 1
Next
L3.Text = L3.Text & Chr(10) & "5."
For a = 0 To 9
L3.Text = L3.Text & " " & ba(a)
Next
REM 43.13.41.6
a = bd(0)
b = bd(0)
For c = 1 To 9
If a > bd(c) Then a = bd(c)
If b < bd(c) Then b = bd(c)
Next
L3.Text = L3.Text & Chr(10) & "6. Минимум " & a & ", максимум " & b
REM 44.18.46.7
For a = 0 To 9
ba(a) = bd(a)
Next
b = ba(9)
For a = 9 To 1 Step -1
ba(a) = ba(a - 1)
Next
ba(0) = b
L3.Text = L3.Text & Chr(10) & "7."
For a = 0 To 9
L3.Text = L3.Text & " " & ba(a)
Next
REM 44.20.48.8
ba(0) = bd(0)
For a = 1 To 9
ba(a) = ba(a - 1) + bd(a)
Next
L3.Text = L3.Text & Chr(10) & "8."
For a = 0 To 9
L3.Text = L3.Text & " " & ba(a)
Next
REM 48.4.52.9
a = 0
For b = 0 To 9
a = a + bd(b)
Next
L3.Text = L3.Text & Chr(10) & "9. Среднее арифметическое " & a / 10
REM 100.1.93.10
a = 0
For b = 0 To 9
If bd(b) <> 0 Then a = a + 1
Next
L3.Text = L3.Text & Chr(10) & "10. Число ненулевых элементов " & a
REM 100.2.94.11
a = 0
For b = 0 To 9
If bd(b) > 7 Or bd(b) < -7 Then a = a + 1
Next
L3.Text = L3.Text & Chr(10) & "11. " & a
REM 100.3.95.12
a = 0
For b = 0 To 9
If bd(b) = 7 Then a = 1
Next
L3.Text = L3.Text & Chr(10) & "12. "
If a = 1 Then L3.Text = L3.Text & "да" Else L3.Text = L3.Text & "нет"
REM 100.4.96.13
a = bd(0)
b = bd(0)
For c = 1 To 9
If a < bd(c) Then a = bd(c)
If b > bd(c) Then b = bd(c)
Next
L3.Text = L3.Text & Chr(10) & "13. Разность " & a - b
REM 100.5.97.14
a = 0
b = 0
c = 0
For d = 0 To 9
If bd(d) < be(d) Then a = a + 1
If bd(d) = be(d) Then b = b + 1
If bd(d) > be(d) Then c = c + 1
Next
L3.Text = L3.Text & Chr(10) & "14. Меньше " & a & ", равно " & b & ", больше " & c
REM 100.6.98.15
a = bd(0) REM Максимум
b = 1
For c = 1 To 9
If a <= bd(c) Then a = bd(c) : b = b + 1
Next
L3.Text = L3.Text & Chr(10) & "15. Число элементов " & b
REM 100.7.99.16
a = 0 REM Сумма всех элементов массива
For b = 0 To 9
a = a + bd(b)
Next
g = a / 10 REM Среднее арифметическое элементов массива
a = 0 REM Число искомых элементов массива
For b = 0 To 9
If bd(b) > g Then a = a + 1
Next
L3.Text = L3.Text & Chr(10) & "16. Число элементов " & a
REM 100.8.100.17
a = 0
For b = 0 To 9
a = a + bd(b)
bg(b) = a / (b + 1)
Next
L3.Text = L3.Text & Chr(10) & "17."
For b = 0 To 9
L3.Text = L3.Text & " " & bg(b)
Next
REM 100.9.101.18
a = bd(0) REM Поиск максимума массива
For b = 1 To 9
If a < bd(b) Then a = bd(b)
Next
c = 0 REM Поиск числа совпадений с максимумом
For b = 0 To 9
If bd(b) = a Then c = c + 1
Next
L3.Text = L3.Text & Chr(10) & "18. Число максимальных элементов " & c
REM 101.12.104.19
a = -1
For b = 0 To 9
If bd(b) = 0 Then a = b : Exit For
Next
L3.Text = L3.Text & Chr(10) & "19. "
If a = -1 Then
L3.Text = L3.Text & "Нет нулевых элементов."
Else
L3.Text = L3.Text & "Номер первого нулевого элемента " & a
End If