Примітка

 Опишіть масив А: аггау[1..6] of Integer; як глобальний. У процедурі обробки події OnClick для кнопки Ввести значення запрограмуйте введення елементів масиву з клавіатури в ході виконання програми. Створіть процедуру обробки події OnClick для кнопки Чи упорядкований масив?. Опишіть змінні, які будуть необхідні для розв’язування завдання: 

var і: Integer; Prap: Boolean;

Перевірте, чи є масив упорядкованим за неспаданням.

Алгоритм розв'язування завдання: перебрати всі елементи з другого до останнього. Якщо поточний елемент менший за попередній, то прапорцевій змінній Рrар присвоїти значення False. Якщо після перегляду масиву прапорцева змінна має значення False — це означає, що послідовність не була неспадною.

Рrар := True;

For і := 2 to 6 do

If A[i] менше-рівне A[i - 1] Then Prap := False;

if Prap Then Label1.Caption := 'За неспаданям';

5. Користуючись рис. 1, додайте до оператора If, який перевіряє стан прапорцевої змінної Рrар, гілку Else для перевірки послідовності на незростання.

6. Перевірте роботу програми для послідовності, упорядкованої за неспаданням; за незростанням; неупорядкованої послідовності.