Массивы Ввести с клавиатуры массив, состоящий из N (также с клавиатуры) элементов. Определить, есть ли в массиве соседние элементы, т.е. элементы, значение которых отличается не более, чем на 1.
208
423
Ответы на вопрос:
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.
65536=2^16 1024*768*16=12582912бита 12582912/19200=655.36 примерно=655секунд
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
nikola5805.07.2021 04:18
-
Khlana3015.07.2020 18:39
-
Juylia55503.07.2020 18:02
-
ktjy12327.04.2021 19:11
-
lubovsher115.02.2023 07:07
-
persik211302.03.2023 08:12
-
мурад11915.11.2021 09:02
-
умныйнет105.10.2021 11:47
-
евака227.08.2022 02:10
-
lolgg213.04.2023 16:53
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.