Дано целое число n. выяснить является ли последовательность цифр это числа при просмотре справо налево возрастающей. например, для числа 762 - ответ положительный, а для числа 8782 - ответ отрицательный

Var
   N:longint;
   k:byte;
Begin
Write('N = ');ReadLn(N);
k:=1;
N:=Abs(N);
While N div 10 > 0 do
   Begin
   if N mod 10 > (N div 10) mod 10 then k:=0;
   N:=N div 10
   End;
if k=1 then Write('ответ положительный')
else WriteLn('ответ отрицательный')
End.

Решение в приложении. Файл с рабочей книгой Excel-2003. не забудьте разрешить выполнение макросов и проектов VBA без цифровой подписи.
Вы можете внести данные для массива вручную или воспользоваться кнопкой для автозаполнения с датчика случайных чисел. Не забудьте предварительно указать количество элементов в массиве.
Кнопка "Задание 1" выполняет первую задачу и выводит результат в ячейку, расположенную правее этой кнопки. Кнопка "Задание 2" аналогично работает для второго задания. Коды, привязанные к кнопкам - это программы-обработчики события "Нажатие кнопки".

Sub Swap()

   Dim r As Range, A As Variant

   Dim i As Integer, im As Double, n As Integer, t As Double

   n = 15

   Set r = Range(Cells(1, 1), Cells(1, n))

   A = r

   im = 1

   For i = 2 To n

       If A(1, i) > A(1, im) Then

           im = i

       End If

   Next i

   t = A(1, im)

   A(1, im) = A(1, n)

   A(1, n) = t

   Set r = Range(Cells(2, 1), Cells(2, n))

   r = A

End Sub

На лист в ячейки А1 - О1 заносим исходные 15 чисел

На этот же лист через проект помещаем макрос и запускаем.

Результат будет в ячейках А2 - О2