Question

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

Answer 1

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.