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

Program Avto;

Var

v1, v2, v3, v4, v5: Real;

vSred: Real;

Begin

Write ('введите скорости на 5 участках ') ;

ReadLn (v1, v2, v3, v4, v5) ;

vSred : = 5 / (1/v1 + 1/v2 + 1/v3 + 1/v4 + 1/v5) ;

WriteLn ('средняя скорость = ', vSred) ;

ReadLn;

End.