Задачка на последовательность, никак не могу решить Опции

[kent]

Помогите решить задачу, а то никак не получается ...
Задача состоит в следующем: Дано целое число N и набор из N вещественных чисел. Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность.
Вот всё что я додумался сделать:

var d:array [-1000..1000] of Real;
    N,i,k,t:Integer;
begin
     WriteLn;
     Write('Введите целое число N:');
     ReadLn(N);
     Write('Введите набор из N вещественных чисел:');
     t:=0;
     for i:=1 to N do
     begin
        t:=t+1;
        Read(d[i]);
        if d[i-1]<d[i] then
          k:=t
        else
          k:=0;
      end;
      WriteLn('k=',k);
      ReadLn;
end.

Но код работает не правильно, подскажите плиз как решить...

Сообщение отредактировано: kent - 2.07.2005 15:52

[Archon]

kent, кстати, у тебя выводится последнее, а не первое число, нарушающее последовательность, и переменная t - совершенна лишняя (вместо неё можно ставить i).

Вот вариант без массива:

var new, old : Real;
    N,i,k : Integer;
begin
     WriteLn;
     Write('Введите целое число N:');
     ReadLn(N);
     Write('Введите набор из N вещественных чисел:');
     ReadLn(old);
     k := 0;
     for i := 2 to N do begin
       ReadLn(new);
       if (k = 0) and (new >= old) then k := i;
       old := new;
     end;
     WriteLn('k=', k);
     ReadLn;
end.

2 volvo: прошу прощения, когда я последний раз обновлял страницу, твоего поста ещё не было.