Массивы Ввести с клавиатуры массив, состоящий из N (также с клавиатуры) элементов. Определить, есть ли в массиве соседние элементы, т.е. элементы, значение которых отличается не более, чем на 1.

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

program mass2;

Const n=10;

Var A:array[1..n] of integer;

   i,x:integer;

Begin

   For i:=1 to n do

   Begin

     A[i]:=random(4);

     write(A[i]:3);

   End;

   for i:=1 to N do

   Begin

   if a[i]=a[i+1] then

    writeln('Есть')

    else writeln('Не нашли');

    end;

   

   End.