50 баллов
ПОМОГИТЕ ПОЖАЛУЙСТА
Язык PascalABC
1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 5000. Избранные числа всегда есть. Программа должна вывести одно число.
2. Напишите программу, которая в последовательности целых чисел находит минимальное трехзначное число. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. (0-признак окончания ввода, не входит в последовательность). Избранные числа всегда есть. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 12 000.
ПОМОГИТЕ ПОЖАЛУЙСТА
Язык PascalABC
1. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 100. Введённые числа не превышают 5000. Избранные числа всегда есть. Программа должна вывести одно число.
2. Напишите программу, которая в последовательности целых чисел находит минимальное трехзначное число. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0. (0-признак окончания ввода, не входит в последовательность). Избранные числа всегда есть. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 12 000.
More Questions From This User See All
Answers & Comments
// PascalABC.NET
begin
ReadSeqInteger(ReadInteger)
.Where(p -> p mod 10 = 1)
.Max
.Println; // 1
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> Abs(p) in 100..999)
.Min
.Print // 2
end.