ГазалиеваКозак
?>

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

Информатика

Ответы

shtankosoyuz1629

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.


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

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

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

Популярные вопросы в разделе

Georgievna
lazareva
Gennadievna bessonov
sargisyan77
alfaantonk
IrinaSolodukhina1495
lazaren-ko
Нозадзе_Новиков392
ValerevnaRustam1072
nastya3213868
chizhenkovd9
sanyaborisov910067
MISAKOVNA49
Анатольевич
info2471