Вводится целый одномерный вектор (до 30 частей). Найти, упорядочен ли массив

Это всё одна задачка?

да

Алг массив
нач
  цел N = 30
  целтаб a[1:N]
  цел i, k, b
  лог b1, b2
 
  нц для i от 1 до N
    вывод "a[",i,"] = "
    ввод a[i]
  кц
  вывод нс
 
  b1:=да
  b2:=да
  нц для i от 1 до N-1
    если a[i]gt;a[i+1] то
      b1:=нет
    все
    если a[i]lt;a[i+1] то
      b2:=нет
    все
  кц
  если b1=да то
      вывод "Массив упорядочен по возрастанию", нс
  все
  если b2=да то
      вывод "Массив упорядочен по убыванию", нс
  все

  k:=0
  нц для i от 1 до N
    если a[i]gt;9 то
      k:=k+1
    все
  кц
  вывод "k = ",k, нс

  нц для i от 1 до div(N,2)
    b := a[i]
    a[i] := a[div(N,2)+i]
    a[div(N,2)+i] := b
  кц

  вывод "Модифицированный массив:", нс
  нц для i от 1 до N
    вывод a[i], " "
  кц
кон