Кто в паскале разбирается Найти сколько чисел, введенных с клавиатуры пользователем оканчиваются на 3 (количество чисел, которые ввел пользователь известно)
2) Найти произведение чисел, введенных с клавиатуры, которые кратны 3 и оканчиваются на 9 (количество чисел, которые ввел пользователь известно)
3) Камера наблюдения регистрирует режим скорости проезжающих мимо нее машин. Найти максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 40 км в час, выведите "ДА", иначе выведите "НЕТ".
Задание 1:
begin var a := ReadArrInteger(ReadInteger('N:')); Println('ответ:',a.Count(x->x mod 10 = 3)); end.Задание 2:
begin var a := ReadArrInteger(ReadInteger('N:')); Println('ответ:',a.Where(x->(x mod 3 = 0) and (x mod 10 = 9)).Product); end.Задание 3:
begin var a := ReadArrInteger(ReadInteger('N:')); Println('Максимальная скорость:', a.Max); Println('Была ли меньше 40км/ч:', a.Min < 40 ? 'Да' : 'Нет'); end.Примеры работ: