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