Количество положительных чисел

Задача: дана последовательность А1,А2,А3,...А10. Вывести сообщение на экран, если больше или меньше 5 положительных чисел.

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub random1()
   num1 = InputBox("Введите число 1:")
   num2 = InputBox("Введите число 2:")
   num3 = InputBox("Введите число 3:")
   num4 = InputBox("Введите число 4:")
   num5 = InputBox("Введите число 5:")
   num6 = InputBox("Введите число 6:")
   num7 = InputBox("Введите число 7:")
   num8 = InputBox("Введите число 8:")
   num9 = InputBox("Введите число 9:")
   num10 = InputBox("Введите число 10:")
   col = 0
   If num1 > 0 Then
     col = col + 1
   End If
   If num2 > 0 Then
     col = col + 1
   End If
   If num3 > 0 Then
     col = col + 1
   End If
   If num4 > 0 Then
     col = col + 1
   End If
   If num5 > 0 Then
     col = col + 1
   End If
   If num6 > 0 Then
     col = col + 1
   End If
   If num7 > 0 Then
     col = col + 1
   End If
   If num8 > 0 Then
     col = col + 1
   End If
   If num9 > 0 Then
     col = col + 1
   End If
   If num10 > 0 Then
     col = col + 1
   End If
   If col <= 5 Then
     MsgBox ("Количество положительных чисел не превышает 5")
   Else
     MsgBox ("Количество положительных чисел больше 5")
   End If
End Sub

Оставить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *