В одномерном массиве определить количество соседств двух чисел одного знака и вывести на экран пары этих чисел - 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;
Объяснение кода листинга программы
- Переменная k инициализируется значением 0.
- Переменная i принимает значения от 2 до n (n - 1).
- Если произведение элементов a[i] и a[i-1] меньше нуля, то:
- increment значение переменной k на 1.
- Выводится на экран текущий элемент a[i-1] и следующий элемент a[i].
- Код выполняется до тех пор, пока не будет выполнено условие для всех элементов массива.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д