составьте программу ,которая заполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20 и выводит все тройки элементов , упорядоченные строго по возрастанию.

Вопрос школьника по предмету Информатика

составьте программу ,которая заполняет массив b[1..15 ] случайными целыми числами в диапозоне от 1 до 20 и выводит все тройки элементов , упорядоченные строго по возрастанию.

Ответ учителя по предмету Информатика

PascalABC.NET 3.2, сборка 1374 от 10.01.2017

Внимание! Если программа не работает, обновите версию!

begin

  var n:=15;

  var a:=ArrRandom(n,1,20); a.Println;

  var i:=0;

  repeat

    for var j:=i+1 to n-2 do begin

      if (a[j]>a[i]) and (a[j+1]>a[j]) then begin

        Println(a[i],a[j],a[j+1]);

        i+=1

        end

      else begin i+=1; break end

      end

  until i>=n-3

end.

Пример

2 8 17 11 16 13 15 7 12 9 3 10 15 19 20

2 8 17

3 10 15

10 15 19

15 19 20