Дан массив, состоящий из целых чисел. Напишите программу, которая определяет, есть ли в массиве пара соседних элементов с одинаковыми знаками.
Program Main;Var a:array[1..1000]of integer;i,n,k:integer;beginwrite(Введите количество элементов в массиве: );readln(n);writeln(Введите массив: );for i:=1 to n do read(a[i]);writeln;k:=0;for i:=1 to n-1 doif (a[i]=a[i+1]) then k:=k+1;if (k>0) then writeln(Есть ,k, пар соседних элементов с одинаковым значением) elsewriteln (Нет пар соседних элементов с одинаковым значением);end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
