С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.63/104: Рейтинг темы: голосов - 104, средняя оценка - 4.63
1 / 1 / 0
Регистрация: 30.01.2015
Сообщений: 81

Вывести единственное число — номер Пети в шеренге учеников

18.10.2015, 09:57. Показов 20001. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Петя впервые пришел на урок физкультуры в новой школе. Перед началом урока ученики выстраиваются по росту, в порядке невозрастания. Напишите программу, которая определит на какое место в шеренге Пете нужно встать, чтобы не нарушить традицию, если заранее известен рост каждого ученика и эти данные уже расположены по невозрастанию (то есть каждое следующее число не больше предыдущего). Если в классе есть несколько учеников с таким же ростом, как у Пети, то программа должна расположить его после них.

Входные данные
Сначала задано число N — количество учеников (не считая Петю)(1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из натуральных чисел, не превосходящих 200 (рост учеников в сантиметрах). Затем, на новой строке, вводится рост самого Пети.

Выходные данные
Необходимо вывести единственное число - номер Пети в шеренге учеников.

Примеры
входные данные
8
165 163 160 160 157 157 155 154
162
выходные данные
3
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
18.10.2015, 09:57
Ответы с готовыми решениями:

Вывести единственное целое число - количество гостей-счастливчиков, которым достался торт
"Как на наши именины испекли мы каравай..." прямоугольной формы со сторонам A и B. Именинник, отличающийся своими нестандартными...

В выходной поток вывести единственное вещественное число с точностью три знака после запятой
S=ln\frac{\sqrt{ax}}{1-{x}^{2}} Подскажите что исправить Вычислить значение выражения var a, x, s: real; begin read(a, x); ...

В выходной поток вывести единственное вещественное число с точностью три знака после запятой
Входные данные: Во входном потоке дано единственное вещественное число x (|x| <= 1000, x != 4). Выходные данные: В выходной...

3
Платежеспособный зверь
 Аватар для кот Бегемот
8964 / 4387 / 1654
Регистрация: 28.10.2009
Сообщений: 11,645
18.10.2015, 12:18
Ох, уж эти липовые олимпийцы, даже примитивную задачу решить не могут
Pascal
1
2
if a[i]>=R then inc(k);
writeln(k+1);
0
1 / 1 / 0
Регистрация: 30.01.2015
Сообщений: 81
22.10.2015, 11:40  [ТС]
Помогите сделать, чтобы ответ сразу выводился
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var a: array [1..100] of longint;
    n, i, k,r: longint;
begin
  readln(n);
  k:=0;
  for i := 1 to n do
    begin
      read(a[i]);
      readln(r);
      if a[i] > r then begin inc(k)
    end;
    end;
   writeln(k+1);
end.
0
Платежеспособный зверь
 Аватар для кот Бегемот
8964 / 4387 / 1654
Регистрация: 28.10.2009
Сообщений: 11,645
22.10.2015, 16:49
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var a: array [1..100] of integer;
    n, i, k,r: integer;
begin
  readln(n);
  k:=0;
  for i := 1 to n do
     read(a[i]);
readln(r);
 for i := 1 to n do     
 if a[i] >= r then  inc(k);    
   writeln(k+1);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
22.10.2015, 16:49
Помогаю со студенческими работами здесь

В выходной поток вывести единственное вещественное число с точностью три знака после запятой
Входные данные: Во входном потоке задано три вещественных числа a (a > 0), b (b < 0), x (-1 < x < 1). Значения исходных данных...

Олимпиада по программированию. В выходной потек вывести единственное число - количество пустых клеток в данной комнате
Извените что на укр. ибо срочно. 1)Найти площадь комнаты в квадратном лабиринте. Формат входных данных. В первой строке входного...

Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового Года
Помогите решить задачи в паскале, а то совсем труба=( _______sin2x, при x>0 1) y= { _______1-2sin(x)2...

Найти место для Пети Васечкина в шеренге
С++ Петя Васичкин перешёл в другую школу. На уроке физкультуры ему понадобилось определить своё место в строю... Помогите ему, написав...

Вывести единственное число - суммц заданных чисел a+b
Привет Всем! Я не программист и знаю паскаль только на нижнем уровне самые простые задачи. Вот, получила задачу по инф. и ничего не понемаю...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
Модель микоризы: классовый агентный подход 3
anaschu 06.01.2026
aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR
ФедосеевПавел 06.01.2026
Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .
Модель микоризы: классовый агентный подход 2
anaschu 06.01.2026
репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока
igorrr37 05.01.2026
/ * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03
palva 04.01.2026
Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .
Модель микоризы: классовый агентный подход
anaschu 02.01.2026
Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru