ПОМОГИТЕ ПОЖАЛУЙСТА!СРОЧНО!((((( - Форум
Пятница, 09.12.2016, 16:27
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, PASCAL26, atvrider 
Форум » Решение задач по информатике » Другие задания » ПОМОГИТЕ ПОЖАЛУЙСТА!СРОЧНО!(((((
ПОМОГИТЕ ПОЖАЛУЙСТА!СРОЧНО!(((((
зероДата: Воскресенье, 17.01.2010, 15:58 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 4
[ 0 ]
Статус: Offline
Петя Васичкин перешёл в другую школу. На уроке физкультуры ему понадобилось определить своё место в строю... Сначала вводится N – количество человек в классе. Затем невозрастающая последовательность из N чисел, означающих рост каждого человека в строю. После этого X – рост Пети. Все числа во входных данных натуральные и не превышают 200. Требуется вывести номер, под которым Петя должен встать в строй. Если в строю есть люди с одинаковым ростом, таким же, как у Пети, то он должен встать после них.

Количество элементов массива не превышает 10000.

 
ignorerДата: Воскресенье, 17.01.2010, 19:20 | Сообщение # 2
Генералиссимус
Группа: Модераторы
Сообщений: 602
[ 18 ]
Статус: Offline
решение на паскале. все значения задаются с клавиатуры во время работы программы, если что не так - напиши, я исправлю
Code
var a : array[1..10000] of integer;
     i, n, x : integer;
     b : boolean;
begin
  cls;
  read(n);
  for i:=1 to n do read(a[i]);
  repeat
   b:=true;
   for i:=1 to n-1 do
   if a[i]<a[i+1] then begin x:=a[i]; a[i]:=a[i+1]; a[i+1]:=x; b:=false; end;
  until b;
  read(x);
  i:=0;
  repeat
   inc(i);
  until (x>a[i])or(i=n);
  if x>a[i]then write(i) else write(n+1);
end.
 
Форум » Решение задач по информатике » Другие задания » ПОМОГИТЕ ПОЖАЛУЙСТА!СРОЧНО!(((((
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016