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

Пример работы программы:
Входные дан-ные Выходные дан-ные
4
74
69
63
96 63

Question

bibliotekanpyandexru

4 год назад

ОТВЕТЫ

111111

НЕ ЭКСПЕРТ

Ответил 2021-03-17 10:23:57

Program Cars;

var

i, n, v, max_v, min_v: integer;

Begin

//Ввод числа авто

readln(n);

//Поиск максимальной и минимальной скорости

max_v := 0;

min_v := 300; //Берём противоположные скорости, чтобы найти максимум и минимум

for i := 1 to n do

begin

read(v);

if (v > max_v) then

max_v := v;

if (v < min_v) then

min_v := v;

end;

//Вывод ответов

writeln(max_v);

if (min_v < 30) then

write(\'YES\')

else

write(\'NO\');

End.

СПАСИБО 1

Для написания вопросов необходимо войти в систему