является ли последовательность возрастающей, нужно помочь Опции

[-александр-]

Дана последовательность действительных чисел a1,a2,...an.Выяснить будет ли она возрастающей.

Надо эту задачу решить через оператор FUNCTION (функция)
Если не трудно можете сделать сразу алгоритм с блок-схемой.

Заранее огромное спасибо!

Сообщение отредактировано: мисс_граффити - 14.06.2007 22:14

[Archon]

Если что не так, не обессудь... Задание надо точнее формулировать.

const n = 3;

function cmp (num : integer; a : array of real) : boolean;
var i : integer;
begin
   cmp := true;
   for i := 1 to num - 1 do {при передаче в функцию массив индексируется с 0}
      if a[i] < a[i - 1] then cmp := false;
end;

var a : array [1..n] of real;
    i : integer;
begin
   randomize;
   for i := 1 to n do begin
      a[i] := random(100) + random(100) / 100; {случайные числа от 0 до 100 и 2 знака после запятой}
      write (a[i]:5:2, ' ');
   end;
   writeln;
   if cmp(n, a) then writeln('Возрастающая') else writeln('Невозрастающая');
   readln;
end.

!

На предупреждение модератора автор реагировать отказался, закрыто. klem4