результатом этого алгоритма могут быть числа 217 1218 112 ответ 3
Если правильно понял задание то как то так:
Var k,a,b:integer;
begin
read(k);
b:=k div 3600;
if b>0 then k:=k mod 3600;
a:=k div 60;
if a>0 then k:=k mod 60;
writeln(b,':',a,':',k);
end.
// PascalABC.NET 3.3
begin
var z:=ArrRandom(10,-50,50); z.Println;
var r:=z.Where(x->x>0).ToArray+z.Where(x->x<0).ToArray;
r.Println;
end.
Пример:
-46 42 -26 -23 8 50 -9 46 -50 0
42 8 50 46 -46 -26 -23 -9 -50
Вводи:
System.out.println(("Алена")) ;
Скрин скинул