#include <iostream>
using namespace std;
int main()
{
int n, x = 0, count = 0;
cin >> n;
int arr[n];
for (int i = 0; i < n; i++)
{
cin >> arr[i];
for (int i = 0; i < n; i++)
{
if (arr[i] > 0 && x == 0)
{
cout << i; //положительный
x = 1
}
if (arr[i] < 0) count++;
}
cout << endl << count;
return 0;
}
Объяснение:
Введите сначало количество елементов массива, а потом сами елементы через пробел
Выведет номер первого положительного и количество отрицательных.
количество отрицательных элементов
Function func32575628_1(a As Range) As Integer
Dim r As Range
Dim i As Integer
For Each r In a
i = i + Fix((1 - Sgn(r)) / 2)
Next
func32575628_1 = i
End Function
номер первого положительного элемента
Function func32575628_2(a As Range) As Integer
Dim r As Range
Dim i, j As Integer
For Each r In a
i = i + 1
If Fix((1 + Sgn(r)) / 2) Then Exit For
Next
func32575628_2 = i
End Function
Excel VBA
