В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Енотuк
Енотuк
22.02.2020 15:49 •  Информатика

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

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

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

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

Показать ответ
Ответ:
vkunney
vkunney
14.10.2020 01:52

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.

Подробнее - на -

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота