Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Victor774
0 / 0 / 0
Регистрация: 10.12.2015
Сообщений: 2
#1

Найдите отсутствующее число. - Turbo Pascal

10.12.2015, 07:54. Просмотров 750. Ответов 1
Метки нет (Все метки)

Потерянное число
Вам даны все целые число от 1 до N+1, кроме одного. Найдите отсутствующее число.
Формат входных данных.
Впервой строке входных данных записано целое число 1<= N<=100000.Во второй строке через пробел даны N целых чисел в диапазоне от 1 до N+1.
Формат выходных данных
Выведите ответ к задаче.
http://www.cyberforum.ru/turbo-pascal/thread1020272.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.12.2015, 07:54
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найдите отсутствующее число. (Turbo Pascal):

Написать программу, находящую значение из заданного интервала, отсутствующее в массиве.
Добрый вечер. Помогите пожалуйста написать программу, находящую значение из...

Найдите наибольшее число последовательности
Помогите, пожалуйста, выполнить задание: Задание 3 PASCAL Составить...

Найдите наибольшее число последовательности
1) Введите последовательность из N целых чисел. Найдите наибольшее число. ...

Найдите наименьшее натуральное число
Найдите наименьшее натуральное число, сумма цифер которого равна заданному...

Найдите в предложении самое короткое число
помогите пожалуйста сделать Задание 8 Введите в ЭВМ предложение длиной не...

1
Puporev
Модератор
54134 / 41767 / 28876
Регистрация: 18.05.2008
Сообщений: 98,305
10.12.2015, 12:51 #2
Лучший ответ Сообщение было отмечено Victor774 как решение

Решение

Например так.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var x:array [1..100001] of byte;
    n,a,i:longint;
begin
read(n);
for i:=1 to n+1 do
x[i]:=0;
for i:=1 to n do
 begin
  read(a);
  x[a]:=1;
 end;
for i:=1 to n+1 do
if x[i]=0 then write(i)
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.12.2015, 12:51
Привет! Вот еще темы с решениями:

Найдите минимальное число среди введенных 10 чисел
Заранее спасибо!!

Найдите число десятков в его десятичной записи
Вроде задача легкая, она звучит так...Дано натуральное число. Найдите число...

Найдите максимальное число среди введенных 15 чисел
Заранее спасибо!!

Найдите число ненулевых элементов в целочисленном массиве
Найдите число ненулевых элементов в целочисленном массиве .


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru