Làm sao để có câu trả lời hay nhất?
17/07/2023
17/07/2023
program WateringGarden;
var
T, n, k, i, minTime, position, maxDistance: Integer;
positions: array of Integer;
begin
Readln(T);
while T > 0 do
begin
Readln(n, k);
SetLength(positions, k);
for i := 0 to k - 1 do
Read(positions[i]);
maxDistance := 0;
for i := 1 to k - 1 do
begin
if positions[i] - positions[i - 1] > maxDistance then
maxDistance := positions[i] - positions[i - 1];
end;
minTime := maxDistance div 2 + 1;
Writeln(minTime);
Dec(T);
end;
end.
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
Top thành viên trả lời