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

[Sir-j]

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

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

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

[volvo]

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

В чем именно?

Если данный набор образует убывающую последовательность, то вывести 0; в противном случае вывести номер первого числа, нарушающего закономерность

Что такое убывающая последовательность? Это та последовательность, у которой
a[i] < a[i - 1]... Вот и пользуйся While-ом:

i := 1; z_a := true;
while (i <= n) and z_a do begin
  z_a := a[i] < a[i - 1];
  if z_a then inc(i);
end;
if z_a then writeln('0') else writeln('i = ', i);

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

Ну, и где ты здесь видел K в неравенстве?

[Guest]

C теорией я знаком, но как это пременить на практике!!
во 2 задаче извеняюсь К=Х
Все ломаю голову: "...В противном случае ввывести номер первого числа, нарушающего закономерноcть..." мне было бы приятно увидеть всю задачу целиком, посмотреть в чем я ошибся!!!

[volvo]

C теорией я знаком, но как это пременить на практике!!

С теорией ??? Ты основной кусок программы там случайно не заметил? Кстати, как раз и делающий то, над чем ты "ломаешь голову"... А целиком задачи писать здесь не принято...

Если уж ты и ответы через строчку читаешь... <_<