Question

Определить в одномерном числовом массиве число соседств из двух чисел разного знака. Без рандома нужно.​ На Паскале

Answer 1

===== PascalABC.NET =====

begin

 ReadArrInteger(ReadInteger)

   .Pairwise.Count(p -> Sign(p[0]) <> Sign(p[1]))

   .Println

end.

Сначала вводим длину массива, затем все его элементы.

Answer 2

Вот пример решения данной задачи на языке Паскаль:

arduinoCopy code
program TwoSignsInARow;

const
  N = 10; { размер массива }

var
  arr: array[1..N] of integer;
  i: integer;
  found: boolean;

begin
  { заполнение массива }
  for i := 1 to N do
  begin
    writeln('Введите ', i, '-й элемент массива:');
    readln(arr[i]);
  end;

  { поиск соседних чисел разных знаков }
  found := false;
  for i := 1 to N - 1 do
  begin
    if (arr[i] * arr[i + 1] < 0) then
    begin
      found := true;
      writeln('Найдены два соседних числа разных знаков: ', arr[i], ' и ', arr[i + 1]);
    end;
  end;

  if not found then
  begin
    writeln('В массиве нет соседних чисел разных знаков.');
  end;

  readln;
end.

В данном примере мы сначала заполняем массив arr с помощью цикла for. Затем мы ищем соседние числа разных знаков в цикле for. Если мы находим такие числа, мы выводим их на экран и устанавливаем значение found в true. Если мы не находим таких чисел, мы выводим сообщение об этом.