Из массива выписать числа у которых равные соседи а потом числа у которых неравные...

Question

Из массива выписать числа у которых равные соседи а потом числа у которых неравные (первый и последний элементы массива не рассматривать) Pascal

Comments

Тюе не рассматривать пары (a[1],a[2]) и (a[n-1],a[n]) ?

---

a[2] я так понял станет a{3] а a[n-2] c a[n-1]

---

Я не о том. Предлагается сделать вид, что у массива отрезали по одному элементу в начале и в конце?

---

Или это просто глупо написанная фраза о том, что когда первый элемент рассматриваем, то у него нет предыдущего соседа?

Answer 1

Type
massive= array [1..10] of real;
var a,b: massive;
i,j:integer;
begin
randomize;
j:=1;
for i:=low(a) to high(a) do
a[i]:=random(20)-10;
for i:=low(a)+1 to high(a)-1 do
if (a[i-1] = a[i]) and (a[i]= a[i+1]) then write(a[i]) else do
begin
b[j]:=a[i];
j:=j+1;
end;
writeln;
for i:=low(b) to j do
write(b[i]);
end.