Подсчитать количество соседних пар элементов с противоположным значением

@Ананасик · Регистрация: 20.04.2016

Author24 — интернет-сервис помощи студентам

Даны 30 чисел в интервале от -20 до 20. Подсчитать количество соседних пар элементов с противоположным значением.

@WindAndRain · 21.04.2016, 01:50

Сообщение от Ананасик

Подсчитать количество соседних пар элементов с противоположным значением.

Значением или знаком? То есть парой будет только "-5 5" или "-5 12" тоже подходит?

Добавлено через 6 минут
Вот программа, определяющая количество пар чисел, противоположных по знаку, если нужно что-то другое - просто поменяйте условие во втором цикле в ветвлении:

Pascal ABC.net

Pascal

program NumbersAndPairs;
 
var
  Ar : array [1..30] of Integer;
  i : Integer;
  Counter : Word;
 
begin
  //формируем и выводим ряд чисел
  randomize;
  for i := 1 to 30 do
    begin
      Ar[i] := random(40) - 20;
      write (Ar[i], ' ');
    end;
    
    
  //находим количество пар в этом ряду
  Counter := 0;
  for i := 1 to 29 do
    if ((Ar[i] > 0) and (Ar[i+1] < 0))  //если пара (отрицательный; положительный)
       or
       ((Ar[i] < 0) and (Ar[i+1] > 0))  //если пара (положительный; отрицательный)
    then Inc(Counter);
  
  
  writeln;
  writeln('Kolichestvo par: ', Counter);
  readln;
end.

@Ананасик 1 / 1 / 0 Регистрация: 20.04.2016 Сообщений: 26
		1
	Подсчитать количество соседних пар элементов с противоположным значением 20.04.2016, 20:59. Показов 1826. Ответов 1 Метки нет (Все метки) Даны 30 чисел в интервале от -20 до 20. Подсчитать количество соседних пар элементов с противоположным значением. 0

	21.04.2016, 01:50

Подсчитать количество соседних пар элементов с противоположным значением

Решение