Question

Двоешник вася сидя на уроке матиматике, делая вид что он работает, писал в тетрадке паследовательно различные числа, которые ему прихадили в голову. его сасед, естественно отличник петя, посмотрев на пустое время правождение предложил васе прибумать с написаными васей числами. васю это предложение заинтересовало и он после мучительных раздумий придумал все таки . и здесь её изложил. из чисел которые вася написал, нужно выписать только те, которые строго возрастают с первого числа. петя от себя добавил: следует из элементов массива а размером n, сформировать новый массив в, удалив из исходного те элементы, которые мешают образовать возрастающую последовательность. так как составлена двоечником. васей, то и написана она с ошибками. вы на них не обращайте внимания, а решите васи. формат ввода в первой строке записано одно число n (n ⩽ 1000). в следующей строке даны n чисел - элементы массива, каждое число не превосходит по модулю 104. формат вывода необходимо в единственной строку вывести новый массив, в котором элементы образуют возрастающую последовательность.

Answer 1

// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  var a:=ReadArrInteger(n);
  var p:=a[0]; Print(p);
  for var i:=2 to a.Length-1 do
    if a[i]>p then begin p:=a[i]; Print(p) end;
end.

Пример
15
32 32 66 74 32 54 52 86 87 3 72 66 27 42 60
32 66 74 86 87