(ввести номер первого положительного элемента и количество отрицательных элементов одномерного массива) СРОЧНО 98
БАЛЛОВ!!!!!!!!!

номер первого положительного элемента лучше даже так (а то вдруг там вообще положительных элементов нет):Function func32575628_2(a As Range) As IntegerDim r As RangeDim i, j As IntegerFor Each r In ai = i + 1If Fix((1 + Sgn(r)) / 2) Then: j = i: Exit ForNextfunc32575628_2 = jEnd Function

Ответ:

#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