Информатика, 9 класс

program z6; var b:array[1..15] of integer; i:integer; begin for i:=1 to 15 do //создаем массив// b[i]:=random(21); writeln('исходный массив: '); for i:=1 to 15 do //выводим исход.массив на экран// write(b[i], ' '); writeln; writeln('тройки по возрастанию: '); for i:=3 to 15 do if (b[i]>b[i-1]) and (b[i-1]>b[i-2]) //проверяем условие возрастания// then writeln(b[i-2], ' ', b[i-1], ' ', b[i] ); end.