Question

Se considera tabloul T[1..n] de numere intregi,n<=100.Sa se scrie un program care numara perechile de numere de pe pozitii consecutive modului diferentei carora este egal cu 1. De exemplu:2 1 4 3 4 are 3 perechi de numere cu aceasta proprietate.

Answer 1

Program Tema;

var t:array[1..100] of integer;
    n,i,nr:integer;

Begin
nr:=0;
writeln('Introduceti nr de elemente: ');
readln(n);
writeln('Introduceti elementele: ');
t[i]:=1;
for i:=2 to n do
begin
read(t[i]);
if abs(t[i]-t[i-1])=1 then
nr:=nr+1;
end;

writeln('Nr de perechi este: ',nr);
End.