3 задачи [Паскаль]

[Raudi_s]

Здравствуйте препод дал 3 задачи которые надо сделать в паскале не могу точнее не умею программировать помогите кто может зарание благодарю!

1,дано 10 вещественных чисел, не используя массива,определить:
упорядоченны ли числа по неубыванию.

Напишите пожалуйста от начала до конца программы...

[Dmitry333]

Попробуй так

var
   i:integer;
   a,b:real;
   fl:boolean;
begin
     i:=1;
     fl:=true;
     readln(a);
     while i<>9 do
     begin
          readln(b);
          if fl then
             if not (a<=b) then fl:=false else a:=b;
          inc(i);
     end;
     if not fl then writeln('Chisla NE uporyadocheni!') else
        writeln('Chisla uporyadoceni!');
     readln;
end.

Попробуй в этом разобраться, это не так сложно.
Я тебе советую уже на начальной стадии изучения стараться разбираться в решении разных задач.
Больше решай!

[Raudi_s]

Огромное тебе спасибо!!!!
Я сам хочу научиться! не мог бы ты своими словами перевести операторы?
У меня хелп не работает на паскале...(

[Raudi_s]

А такое можете сделать и плз в кратце объяснить как переводяться операторы,и как впринципе работают?

2,Дан набор вещественных чисел,завершающихся нулем (в общем случае не менее 3 и не более 10000 чисел).Не используя массива,определить:
г)значение числа,предшествующего максимальному (если максимально число первое в наборе,то результат-ноль)

Зарание благодарю...