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

Узнай цену своей работы

Формулировка задачи:

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

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

textual
Листинг программы
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.

Объяснение кода листинга программы

Этот код на Turbo Pascal запрашивает у пользователя ввести 10 целых чисел, а затем выводит содержимое массива. Затем он подсчитывает количество пар соседних элементов, которые равны друг другу. Если таких пар нет, то выводится сообщение Нет одинаковых рядом, в противном случае выводится количество таких пар.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.429 из 5
Похожие ответы