Работа с массивами, операторы цикла в языке Turbo Pascal

Задание:

Дано 10 вещественных чисел. Определить образують ли они возростаючую последовательность.

Выбор алгоритма решения задачи:

В этой задаче нужно применять одномерный массив. Внести у него вещественные числа. Потом определить последующий элемент больше предыдущего или нет. Если всегда так, то это значит, что последовательность возростающая.

Описание решения задачи

Данную задачу можно решить следующим способом: объявляем массив и заносим в него числа. Потом делаем цикл и в нем проверяем условие (if (A[i]> A[i+1])) если оно выполняется, и выполняется всегда, тогда можно считать, что массив возростаючий.

Схема алгоритма решения задачи

Текст программы:

program lab3;
const n=10;                   {количество элементов в массиве}

var
   A:array [1..n] of real;          {объявление массива А}
   i:byte;                                  {переменная для циклов}
   b:boolean;                           {идентификатор роста}
begin
     writeln('vvedite tselie chisla matrici A[',n,',',n,']');
     for i:=1 to n do begin                  {циклвводавмассив}
         write('A[',i,'] = ');
         readln(A[i]);
     end;
     writeln;
     writeln('matraca imeet vid: ');
     for i:=1 to n do begin                  {циклвыводамассива}
         write(A[i]:3:3,'  ');
        end;
     writeln;
     b := true;
     for i:=1 to n-1 do               {цикл определения роста}
          if (A[i] > A[i+1]) then begin  {если текущий больше следующего}
             b := false;                                     {значит масив невозростающий}
             break;
          end;
     if (b) then writeln('Masiv A - vozrostaushaya posledovatelnost''')
     else writeln('Masiv A - ne vozrostaushaya posledovatelnost''');
     readln;
end.

Результат работы программы: