Question

Даю 100 балов!!!! Помогите).Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить максимальную, минимальную и среднюю зарегистрированную скорость автомобиля. Программа получает на вход число проехавших автомобилей N (1 =< N =< 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Решение !!!!через while или repeat и until!!!!!!

Answer 1

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