Помогите пожалуйста (10 класс)

[Борисс]

Известно количество очков, набранных каждой из 20-ти команд-участниц
первенства по футболу. Перечень очков дан в порядке убывания (ни одна пара команд не набрала одинаковое количество очков). Определить, какое место заняла команда, набравшая N очков (естественно, что значение N имеется в перечне). Условный оператор не использовать.

Сказали сделать через while

[FPaul]

var
  a: array[1..20] of integer;
  p: integer;
begin
............
  p:=1;
  while a[p]<>N do
    inc(p);
  writeln(p);
end.

[Борисс]

Главная проблема в том, что учитель сказал - нельзя использовать массивы.

[FPaul]

Учитель то, учитель сё... Когда он это сказал (сегодня воскресенье)? А в условии этого нет (только if). Сердцем чую, что на любой следующий вариант решения будут накладываться новые ограничения.
Идея понятна? Покажи, что сделал сам, как вводишь данные, как обозначаешь переменные. Тогда продолжим.

[Борисс]

В том то вся и проблема, что я не знаю как это сделать без массива и условных операторов

[FPaul]

Как без условных - я показал.
А без массива - по мере поступления:

  ввод A
  while (A<>N) do
  begin
    ввод A
    dec(p);
  end;

[Борисс]

Спасибо огромное!

[FPaul]

dec(p) это тоже самое, что и p:=p-1

А ты точно сделал? Я ведь тебе не готовую программу дал, а только псевдокод, чтобы ты мог самостоятельно завершить.

[Борисс]

Далее я попробую разобраться

[Борисс]

В принципе всё ясно