Private Sub Command1_Click() Const m% = 10 Dim S(1 To m%) As Single Debug.Print "Масив S" For i% = 1 To m% Title$ = "Введіть значення елементів масиву S" Prt$ = "елемент S(" & i% & ")" S(i%) = Val(InputBox(Prt$, Title$)) Debug.Print S(i%); " ": Next i% Debug.Print Debug.Print "Кредитові сальдо масиву S=" For i% = 1 To m% If S(i%) < 0 Then Debug.Print S(i%); " "; End If Next i% Debug.Print End Sub