В таблице есть одинаковые идущие подряд элементы. Подсчитать их количество.

@dobrik817 · Регистрация: 05.10.2016

Author24 — интернет-сервис помощи студентам

В таблице А(10) есть одинаковые идущие подряд элементы. Подсчитать их количество.

@Puporev · 09.12.2016, 10:58

Pascal

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j,k,p:byte;
begin
clrscr;
writeln('Введите ',n,' целых чисел, в том числе одинаковые подряд');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Массив');
for i:=1 to n do
write(a[i],' ');
writeln;
i:=2;
k:=0;
while i<=n do
if a[i]=a[i-1] then
 begin
  j:=i;
  p:=1;
  while(j<=n)and(a[j]=a[j-1]) do
   begin
    p:=p+1;
    j:=j+1;
   end;
  i:=i+p;
  k:=k+p;
 end
else i:=i+1;
if k=0 then write('Нет одинаковых рядом')
else write('Количество одинаковых рядом=',k);
readln
end.

@dobrik817 0 / 0 / 0 Регистрация: 05.10.2016 Сообщений: 30
		1
	В таблице есть одинаковые идущие подряд элементы. Подсчитать их количество. 09.12.2016, 01:07. Показов 1604. Ответов 1 Метки нет (Все метки) В таблице А(10) есть одинаковые идущие подряд элементы. Подсчитать их количество. 0

	09.12.2016, 10:58

В таблице есть одинаковые идущие подряд элементы. Подсчитать их количество.

Решение