Регистрация
Valerie954
02.08.2021 18:01
Информатика
Есть ответ 👍

Создать содержание(оглавление) к полученному тексту​

116
309
Посмотреть ответы 1

Ответы на вопрос:

13032005mahri
13032005mahri
4,4(98 оценок)
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

Популярно: Информатика