Var a:array[1..8] of integer;i:integer;beginrandomize;for i:=1 to 8 do begin a[i]:=random(20-10) + 10; write(a[i],' '); end; writeln;for i:=1 to 8 do begin if (a[i] < 15 ) then a[i]:=2*a[i]; write(a[i],' '); end;
<span>end.</span>
111
7
7
c3 системы вычисления
Требуется выполнить сортировку временных моментов, заданных в часах, минутах и секундах.
Входные данные
Во входном файле INPUT.TXT в первой строке записано число N (1<=N<=100), а в последующих N строках N моментов времени. Каждый момент времени задается 3 целыми числами - часы (от 0 до 23), минуты (от 0 до 59) и секунды (от 0 до 59).
Выходные данные
В выходной файл OUTPUT.TXT выведите моменты времени, упорядоченные в порядке неубывания без ведущих нулей.
Пример:
INPUT.TXT
4
10 20 30
7 30 00
23 59 59
<span>13 30 30 </span>
OUTPUT.TXT
7 30 0
10 20 30
13 30 30
<span>23 59 59</span>