Предмет: Информатика,
автор: 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
Внимание! Если программа не работает, обновите версию!
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
Предмет: Қазақ тiлi,
автор: nur1808
Предмет: Алгебра,
автор: akimik548
Предмет: Математика,
автор: worlddogsrose
Предмет: История,
автор: ahmetzhanovada