Дан массив, состоящий из целых чисел. напишите программу, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками.

Program Main; Var a:array[1..1000]of integer; i,n,k:integer; begin write('Введите количество элементов в массиве: '); readln(n); writeln('Введите массив: '); for i:=1 to n do read(a[i]); writeln; k:=0; for i:=1 to n-1 do if (a[i]=a[i+1]) then k:=k+1; if (k>0) then writeln('Есть ',k,' пар соседних элементов с одинаковым значением') else writeln ('Нет пар соседних элементов с одинаковым значением'); end.

Язык не указан,поэтому на свой выбор си++.

Задание не пояснено.Что значит формирует? Это динамика или статика?

#include<iostream>;

using namespace std;

int main()

{

 

int arr[9] = { 0, 0, 0, 0, 0, 0, 0, 0, 0 };

cout << endl << "array of random numbers" << endl;

for (int i = 0; i < 9; i++)

{

 arr[i] = rand() % 10;

 cout << arr[i] << "  ";

}

cout << endl<<"replacing an array with units" <<endl;

for (int i = 0; i < 9; i++)

{

 arr[i] = 1;

 cout << arr[i] << "  ";

}

cout << endl;

system("pause");

return 0;

}

Достоинства: через колонки можно включить звук с более увеличенной мощностью; В наушниках можно слушать всё без помех и шум вам не помешает. Недостатки: Использование колонок  с увеличенной мощностью до максимума может привести к головной боли и температуре; В наушниках можно потерять слух лучше слушать что то без них ну или хотя бы включить её на малую мощность. Также если слушать её во время походов в городе можно не  услышать звук приближающейся  машине что может привести к аварии. было много случаев когда люди не слышали приближающийся транспорт и погибали.