Привет всем! Помогите, пожалуйста, с задачей) Ввести N чисел. Подсчитать количество...

Question

Привет всем! Помогите, пожалуйста, с задачей)
Ввести N чисел. Подсчитать количество случаев равенства двух чисел, идущих друг за другом.

Answer 1

//Pascal ABC.NET Версия 2.2 Сборка 790
var i,k,n,a,b:integer;
begin;
readln(n);
i:=1;
repeat
if i mod 2<>0 then readln(a) else readln(b);
if b=a then inc(k);
inc(i);
until n+1=i;
writeln('Result:',k);
end.

Пример ввода:
3 1 1 2
Пример вывода:
Result:1

Comments

Если не понятно, могу проще.

---

Мне бы через repeat-until, если можно)

---

Поправил.

---

Спасибо большое!