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

July 2022 1 6 Report

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

Answers & Comments

BrightOne 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

0 votes Thanks 0

Answers & Comments

believable child kak perevoditsya eto ne pravdopodobnyj rebenok

I _her_ on the train before i left the station a) have watched. getting b) watch...

pomogite ochen nado 1zadacha snizu

na skolko gradusov izmenilas temperatura vody obyomom v50 lesli pri etomvydac6bcd603c23473866a6c5aff092cc3d 85982

razobrat slova po sostavu chego to rasstelite podarochnyj

what would you say if i...you for advise now a) asked b) had asked c) asks d) wi...

opishite pozhalujsta nablyudenie za kashtanom osenyu chto s nim proishodit

sostavte programmu podscheta kolichestva slov mama v stroke pascal abc

were waiting for the bus...

kartinka k frazeologizmu otvesti dushu

рекомендуемые вопросы

Helpful Links

Helpful Social