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

Вопрос школьника по предмету Информатика

Напишите программу для решения следующей задачи. Камера наблюдения регистрирует в автоматическом режиме скорость проезжающих мимо неё автомобилей, округляя значения скорости до целых чисел. Необходимо определить:

1) разность максимальной и минимальной скоростей автомобилей;

2) количество автомобилей, скорость которых не превышала 30 км/ч.

Программа получает на вход число проехавших автомобилей N (1 ≤ N ≤ 30), затем указываются их скорости. Значение скорости не может быть меньше 1 и больше 300. Программа должна сначала вывести разность максимальной и минимальной скоростей автомобилей, затем количество автомобилей, скорость которых не превышала 30 км/ч. В Питоне

Ответ учителя по предмету Информатика

Ответ:

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.

Подробнее — на Znanija.com — https://znanija.com/task/28484729#readmore

Объяснение: