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

[Sir-j]

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

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

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

[klem4]

Ну во первых первую задачу Volvo тебе уже решил, жаль что ты ничего не понял, вот тебе мое решение, немного другое, но мне больше нравится

uses crt;
var
   x : array[1..30] of integer;
   i,n : integer;

begin

   clrscr;

   write('n='); readln(n);

   for i := 1 to n do readln(x[i]);

   i := 1;

   while (i<=n-1) and (x[i]>x[succ(i)]) do inc(i);

   writeln;

   write('Result : ');

   if i=n then writeln(0)
    else writeln(succ(i));

   readln;

end.

а вторая вроде вот так :

uses crt;
var
   x,n : real;

begin

   clrscr;

   write('N='); readln(n);

   x := (ln(n)/ln(3))-1;

   writeln('x=', x:3:1);

   writeln(exp(x*ln(3)):3 :1);


   readln;

end.

[Sir-j]

Друг, спасибо!! я не забуду помощь!!!!