В одномерном массиве определить количество соседств двух чисел одного знака и вывести на экран пары этих чисел - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Задан одномерный массив из 15 целых положительных и отрицательных чисел. Составить программу которая определяет количество соседств двух чисел одного знака и выводит на экран пары этих чисел

Решение задачи: «В одномерном массиве определить количество соседств двух чисел одного знака и вывести на экран пары этих чисел»

textual
Листинг программы
k:=0;
for i:=2 to n do
if a[i]*a[i-1]<0 then
 begin
   k:=k+1;
  writeln(a[i-1],' ',a[i]);
 end;

Объяснение кода листинга программы

  1. Переменная k инициализируется значением 0.
  2. Переменная i принимает значения от 2 до n (n - 1).
  3. Если произведение элементов a[i] и a[i-1] меньше нуля, то:
    • increment значение переменной k на 1.
    • Выводится на экран текущий элемент a[i-1] и следующий элемент a[i].
  4. Код выполняется до тех пор, пока не будет выполнено условие для всех элементов массива.

Оцени полезность:

13   голосов , оценка 4.077 из 5
Похожие ответы