var
a: array[1..1000] of real;
i, k, n, z: integer;
begin
writeln('введите число n: ');
readln(n);
writeln('введите число z: ');
readln(z);
writeln('введите ',n,' действительных чисел (каждое с новой строки): ');
for i : = 1 to n do
begin
readln(a[i]);
if a[i] > z then
begin
a[i] : = z;
k : = k + 1;
end;
end;
writeln('количество замен: ', k);
end.
n = int(input('Число секунд с начала суток: '))
h = n // 3600
n = n % 3600
m = n // 60
s = n % 60
sh = str(h)
sm = str(m)
if len(sm)<2:
sm = "0"+sm
ss = str(s)
if len(ss)<2:
ss = "0"+ss
print(sh,':',sm,':',ss)
Тест №1
Число секунд с начала суток: 7200
2 : 00 : 00
Тест №2
Число секунд с начала суток: 75201
20 : 53 : 21