Предмет: Информатика, автор: En0ti4ek

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

Ответы

Автор ответа: eff1c
0

Ответ:

#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;

}

Объяснение:

Введите сначало количество елементов массива, а потом сами елементы через пробел

Выведет номер первого положительного и количество отрицательных.

Автор ответа: answer2020
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


answer2020: номер первого положительного элемента лучше даже так (а то вдруг там вообще положительных элементов нет):
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: j = i: Exit For
Next
func32575628_2 = j
End Function
Похожие вопросы
Предмет: Биология, автор: alaaelsayed028
Предмет: Русский язык, автор: akonysbaev155
Задания. Прочитайте текст и выполните задания в минуту горя или Изучая небо, древние люди старались сгру..ировать звёзды. Именно так появились созвездия. Затем астр..номы обь..снили, что созвездия выдуманы людьми, что св..тила (не)крепятся на н..бесной тверд.., а представляют собой м..ры, уд..лённые от нас на неизм..римые расстояния. радост..кто не обращал своего взора к чудной панорам..ясн.. неба с 3..лотой россыпью звезд? 1.Перепишите текст, вставляя нужные буквы и раскрывая скобки. Найдите слова с безударной гласной в корне слова, проверяемой ударением. Подберите проверочные слова. Объясните правописание окончаний, выделите графически. Найдите в тексте слова с частицей НЕ, обьясните их написание. 2. Сформулируйте основную мысль текста и запишите ее. 3. На основе прочитанного текста составьте диалог. руководителя астрономического кружка и школьника (-цы), астронома и журналиста на тему «Что люди знают о звездахм. Ч. Раскройте скобки, обьясните графически правописание не и ни в отрицательных местоимениях. (Н..Очего сказать, (н..)кому не сказал, (н..) (кем) поговорить, (н..)у кого) не спросил, н.. чем заполнить, н.. кого не видел.​