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

@Christmas03 · Регистрация: 13.10.2015

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

@Puporev · 27.02.2016, 20:08

Pascal

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;

@Christmas03 0 / 0 / 0 Регистрация: 13.10.2015 Сообщений: 14
		1
	В одномерном массиве определить количество соседств двух чисел одного знака и вывести на экран пары этих чисел 27.02.2016, 19:32. Показов 2568. Ответов 1 Метки нет (Все метки) Задан одномерный массив из 15 целых положительных и отрицательных чисел. Составить программу которая определяет количество соседств двух чисел одного знака и выводит на экран пары этих чисел 0

Опции темы

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

Решение