Question

Напишіть програму, яка в масиві цілих чисел знаходить найбільший(найменший) елемент
масиву. Кількість елементів масиву можна вводити самостійно(в межах від 10 до 50).
Вдоскональте програму для пошуку найбільшого(найменшого) парного(непарного) елемента.

Answer 1

                                     PascalABC.NET                                      

Ответ:

• begin
• var a := ArrRandom(ReadInteger('Кількість:'),-50,50);
• Println('Елементы:',a.JoinToString);
• Println('Найбільший парний:',a.Where(x->x.IsEven).Max);
• Println('Найбільший непарний:',a.Where(x->x.IsOdd).Max);
• Println('Найменшийпарний:',a.Where(x->x.IsEven).Min);
• Println('Найменшийнепарний:',a.Where(x->x.IsOdd).Min);
• end.

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