Определить количество равных элементов в начале последовательности

@sibex11 · Регистрация: 20.11.2016

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

Прошу помогите...
{
Дана последовательность целых чисел а1, а2, ..., а18, в начале которой
записаны несколько равных между собой элементов. Определить количество
таких элементов последовательности. Условный оператор не использовать.
Ниже приведен рекомендуемый вид экрана программы во время ее работы.

#1
Введите последовательность из 18 целых чисел через пробел:
2 2 2 2 2 2 2 2 2 2 4 5 6 7 8 3 8 5
В последовательности 10 начальных одинаковых элементов(а)
}

ФедосеевПавел · 27.11.2016, 10:48

Описание переменных и ввод оформите самостоятельно.

Pascal

  Count:=1;
  i:=2;
  while (a[i]=a[i-1]) and (i<=18) do
  begin
    inc(i);
    inc(Count);
  end;
  writeln('В последовательности ', Count, ' начальных одинаковых элементов(а)');

@sibex11 10 / 10 / 0 Регистрация: 20.11.2016 Сообщений: 81
		1
	Определить количество равных элементов в начале последовательности 27.11.2016, 10:35. Показов 2577. Ответов 1 Метки нет (Все метки) Прошу помогите... { Дана последовательность целых чисел а1, а2, ..., а18, в начале которой записаны несколько равных между собой элементов. Определить количество таких элементов последовательности. Условный оператор не использовать. Ниже приведен рекомендуемый вид экрана программы во время ее работы. #1 Введите последовательность из 18 целых чисел через пробел: 2 2 2 2 2 2 2 2 2 2 4 5 6 7 8 3 8 5 В последовательности 10 начальных одинаковых элементов(а) } 1

	27.11.2016, 10:48

Определить количество равных элементов в начале последовательности

Решение