Должно быть правильно, если я правильно понял твой вопрос.
program massive; var a:array[1..50] of integer; var i, s:integer;begin for i:= 1 to 50 do //можем заполнить массив целыми числами от -1000 до 1000 используя random() a[i]:= random(2001) - 1000; for i:= 1 to 50 do //или дать пользователю самому заполнить массив begin writeLn('Введите значение ', i, ' элемента массива:'); readLn(a[i]); end; s:=0; for i:= 1 to 50 do if a[i] > 100 then s:= s+a[i]; writeLn('Сумма элементов массива, которые больше 100 = ', s);end.
Если на прохождение запроса нужно время t секунд. то с момента отправки запроса клиентом до получения ответа сервера пройдёт время 2t. Зная, что запрос был отправлен в момент времени A и получен ответ в момент времени C, можно вычислить t. Учитывая, что t секунд назад было время B, то сейчас время B + t.
def timestamp_to_time(timestamp): seconds = 0 for token in timestamp.split(":"): seconds = seconds * 60 + int(token) return seconds
def time_to_timestamp(time): seconds = time % 60 time //= 60 minutes = time % 60 time //= 60 hours = time % 24 return "{:02d}:{:02d}:{:02d}".format(hours, minutes, seconds)
A = timestamp_to_time(input()) B = timestamp_to_time(input()) C = timestamp_to_time(input())
if C < A: C += timestamp_to_time("24:00:00")
t = (C - A + 1) // 2 current_time = B + t print(time_to_timestamp(current_time))
program massive; var a:array[1..50] of integer; var i, s:integer;begin for i:= 1 to 50 do //можем заполнить массив целыми числами от -1000 до 1000 используя random() a[i]:= random(2001) - 1000; for i:= 1 to 50 do //или дать пользователю самому заполнить массив begin writeLn('Введите значение ', i, ' элемента массива:'); readLn(a[i]); end; s:=0; for i:= 1 to 50 do if a[i] > 100 then s:= s+a[i]; writeLn('Сумма элементов массива, которые больше 100 = ', s);end.