Предмет: Информатика, автор: sivohaa

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

Ответы

Автор ответа: Аноним
0
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
Похожие вопросы
Предмет: Алгебра, автор: jeremiahvaleska
Предмет: История, автор: ahmetzhanovada