ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Приём ИЗ "...\Отделы\Обмен\", Вывод ИЗ "...\Отделы\Обмен\";
ПЕР N, сумма, сч, скор, макс: ЦЕЛ;
УКАЗ сумма := 0; макс := 0; Вывод.Цепь("Введите число автомобилей: "); N := Приём.Число(); ЕСЛИ N < 1 И N > 30 ТО Вывод.Цепь("^Ошибка.") ИНАЧЕ Вывод.Цепь("^Введите скорости:^"); ОТ сч := 1 ДО N ВЫП скор := Приём.Число(); ЕСЛИ N < 1 И N > 300 ТО Вывод.Цепь("^Ошибка."); СТОП(0) КОН; УВЕЛИЧИТЬ(сумма, скор); ЕСЛИ скор > макс ТО макс := скор КОН; Вывод.Цепь(" ") КОН КОН; Вывод.ЧВещ("^Средняя скорость: %.1f.^", сумма / N, 0, 0, 0); ЕСЛИ макс >= 60 ТО Вывод.Цепь("YES") ИНАЧЕ Вывод.Цепь("NO") КОН
КОН Задание.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку