Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
vlaste
0 / 0 / 0
Регистрация: 29.04.2014
Сообщений: 71
1

Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа

22.11.2015, 12:42. Просмотров 371. Ответов 1
Метки нет (Все метки)

Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность.


Не могли бы пожалуйста решить с пояснениями
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.11.2015, 12:42
Ответы с готовыми решениями:

11. Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа
11. Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и...

Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нем положительные и отрицательные числа.
Помогите решить задачу Задача: Дан массив ненулевых целых чисел размера N. Проверить,...

Дан массив ненулевых чисел размера N. Проверить чередуются ли в нем (четные и нечетные),(положительные и отрицательные числа)
Дан массив ненулевых чисел размера N. Проверить чередуются ли в нем (четные и...

Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нём положительные и отрицательные числа
Дан массив ненулевых целых чисел размера N. Проверить, чередуются ли в нём положительные и...

Дан массив ненулевых чисел размера N. Проверить чередуются ли в нем (четные и нечетные),(положительные и отриц
Дан массив ненулевых чисел размера N. Проверить чередуются ли в нем (четные и...

1
Catstail
Модератор
24552 / 12468 / 2275
Регистрация: 12.02.2012
Сообщений: 20,239
22.11.2015, 12:53 2
Visual Basic
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
Function CheckArray(A() As Integer, Optional P As Integer = 1) As Integer
  If (P = UBound(A, 1)) Then
     CheckArray = 0
  Else
     If Sgn(A(P)) * Sgn(A(P + 1)) = -1 Then
        CheckArray = CheckArray(A, P + 1)
     Else
        CheckArray = P
     End If
  End If
End Function
 
Sub test()
 
Dim X(1 To 5) As Integer
 
    X(1) = 1
    X(2) = -1
    X(3) = 2
    X(4) = -2
    X(5) = 3
    
    Debug.Print CheckArray(X)
 
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.11.2015, 12:53

Дан вещественный массив размера N. Проверить чередуются ли в нем положительные и отрицательные числа
Дан вещественный массив размера N. Проверить чередуются ли в нем положительные и отрицательные...

Массив: Проверить, чередуются ли в нем четные и нечетные (положительные и отрицательные) числа.
Дан массив ненулевых целых чисел размера n. Проверить, чередуются ли в нем четные и нечетные...

Дан целочисленный массив размера N: проверить, чередуются ли в нем четные и нечетные числа?
Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа. Если...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru