Даю 100 балов!!!! Помогите).Камера наблюдения регистрирует в автоматическом режиме скорость

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

Задать свой вопрос
1 ответ

var n,k,v,min,max,s: integer;

begin

readln(n);

k:=1;

read(v);

min:=v;

max:=v;

s:=v;

while klt;n do

begin

k:=k+1;

read(v);

s:=s+v;

if vlt;min then min:=v;

if vgt;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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт