Pascal. Задача 8-16

Проверить упорядоченность и порядок (возрастание или убывание) введенного пользователем массива.

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

купить кухню во владимире.

Решение

var
  i, dir : integer;
  a : array[1..10] of integer;
  ordered : boolean;
begin
  ordered := true;
  dir := 0;
  for i := 1 to 10 do begin
    Write('Введите элемент массива ', i, ': ');
    Readln(a[i]);
    if (dir = 0) and (i > 1) then begin
      if a[i] > a[i - 1] then dir := 1
      else if a[i] < a[i - 1] then dir := -1;
    end
    else if ((dir > 0) and (a[i] < a[i - 1])) or
            ((dir < 0) and (a[i] > a[i - 1])) then begin
           ordered := false;
           break;
         end;
  end;
  if ordered and (dir <> 0) then begin
    Write('Массив упорядочен по ');
    if dir > 0 then Writeln('возрастанию')
    else Writeln('убыванию')
  end
  else
    Writeln('Массив не упорядочен');
end.

◄▲►