Написать функцию для определения количества пар соседних элементов одномерного массива

@ivana23 · Регистрация: 21.12.2017

Написать функцию для определения количества пар соседних элементов одномерного массива, имеющих разные знаки.( А[n], N<=20.)

@Hitoku · 05.01.2018, 02:08

Как строятся пары? Например в массиве (1, -2, 3, -4) необходимые пары [1, -2][3, -4] или [1, -2][-2, 3][3, -4]?

@eaa · 05.01.2018, 19:29

Pascal

begin
  var a := ArrRandomInteger(ReadInteger('Введите N:'), -100, 100);
  a.Println;
  Print(a.Incremental((x, y)-> Ord(x * y < 0)).Sum)
end.

@Hitoku · 05.01.2018, 20:11

Ну тогда ещё вариант для первого примера

Pascal

begin
  var a := ArrRandomInteger(ReadInteger('Введите N:'), -100, 100);
  a.Println;
  writeln(a.Batch(2).Where(v -> v.First * v.Last < 0).Count);
end.

@ivana23 0 / 0 / 0 Регистрация: 21.12.2017 Сообщений: 13
		1
	Написать функцию для определения количества пар соседних элементов одномерного массива 04.01.2018, 17:39. Показов 838. Ответов 3 Метки нет (Все метки) Написать функцию для определения количества пар соседних элементов одномерного массива, имеющих разные знаки.( А[n], N<=20.) 0

@Hitoku 1754 / 1346 / 1407 Регистрация: 28.10.2016 Сообщений: 4,267
	05.01.2018, 02:08	2
	Как строятся пары? Например в массиве (1, -2, 3, -4) необходимые пары [1, -2][3, -4] или [1, -2][-2, 3][3, -4]? 0

Опции темы