Даю 100 балов!!!! Помогите).Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную, минимальную и среднюю зарегистрированную скорость автомобиля. Программа получает на вход число проехавших автомобилей N (1 =< N =< 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Решение !!!!через while или repeat и until!!!!!!
More Questions From This User See All
Answers & Comments
Verified answer
var n,k,v,min,max,s: integer;
begin
readln(n);
k:=1;
read(v);
min:=v;
max:=v;
s:=v;
while k<n do
begin
k:=k+1;
read(v);
s:=s+v;
if v<min then min:=v;
if v>max then max:=v;
end;
writeln('min = ',min,' max = ',max,' sr = ',s/n:4:2);
end.
Пример:
5
85 62 105 74 90
min = 62 max = 105 sr = 83.20