Вопрос школьника по предмету Информатика
составьте программу ,которая заполняет массив 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
Похожие вопросы от пользователей
1. Только с помощью собаки чабан отыскал овец и пригнал из домой.
2. Несколько лет назад чабан нашёл в степи маленького щенка и принёс его домой.
3. Вскоре щенок вырос в большого пса и стал помогать чабану пасти овец. Однажды был сильный буран. В снежной круговерти затерялись овцы.
Знаешь ли ты случаи, когда животный помогали человеку, спасали ему жизнь? Расскажи.
You have received a letter (from your English-speaking pen friend Mary who writes
lt was great to hear that yon went to Italy during your spring holidays. have always wanted to visit
this wonderful country Did you! enjoy your Journey? What places of interest did you visit? What
impressed you most of all? Did you like your /hate?
Write a letter to Mary. In your letter tell her about your journey to Italy