Циклы, Проблема с циклами, не могу разобраться! Опции

[Sir-j]

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

Задача N2:
Дано целое число N(>1). Вывести наибольшее целое K, при котором выполняется неравенство exp(x*ln(3))<N, и само значение exp(x*ln(3)).

P.S. Если можно распишите полностью, как делается задача.

[volvo]

Как решить первую задачу не употребляя массива?

Задания корректные давать. Я в задании не вижу запрета использовать массив... Если его все-таки запрещено использовать, то в следующий раз говори заранее...

uses crt;
var
   x, x_pred: integer;
   i, n : integer;
   z_a: boolean;

begin
   clrscr;

   write('n='); readln(n);
   i := 1; z_a := true;
   readln(x_pred);

   while (i <= n) and z_a do begin
     readln(x);
     z_a := x{a[i]} < x_pred{a[i - 1]};
     if z_a then inc(i);

     x_pred := x;
   end;
   if z_a then writeln('0: Ok') else writeln('i = ', succ(i));

   readln;
end.