** каждом из пяти одинаковых по длине участков дороги автомобиль шел с различной...

Question

На каждом из пяти одинаковых по длине участков дороги автомобиль шел с различной скоростью. Определить среднее время прохождения каждого из участков дороги.

Программа, Паскаль

Answer 1

Как-то так

const
    s = 50;

var
    v: real;
    i:integer;

begin
    for i := 1 to 5 do
    begin
        v := 50 * Random();
        writeln('t_avg = ', s / v);
    end;
end.