Question

Кто в паскале разбирается помогите пожалуйста !!
1) Найти сколько чисел, введенных с клавиатуры пользователем оканчиваются на 3 (количество чисел, которые ввел пользователь известно)
2) Найти произведение чисел, введенных с клавиатуры, которые кратны 3 и оканчиваются на 9 (количество чисел, которые ввел пользователь известно)
3) Камера наблюдения регистрирует режим скорости проезжающих мимо нее машин. Найти максимальную зарегистрированную скорость автомобиля. Если скорость хотя бы одного автомобиля была меньше 40 км в час, выведите "ДА", иначе выведите "НЕТ".

Answer 1

Задание 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.

Примеры работ: