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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
