Question

СРОЧНО!!! Дан массив из 10 чисел. Составьте программу,которая выводит два самых больших по модулю элемента этого массива.
Дан массив названия месяцев. Составьте программу,которая выводит на экран названия ,включающие объекты "а" и "д".

Answer 1

PascalABC.NET 3.2, сборка 1374 от 10.01.2017
Внимание! Если программа не работает, обновите версию!

Задание 1

begin
  var a:=ArrRandom(10,1,50); a.Println;
  a.SortedDescending.Take(2).Println
end.

Пример
14 5 27 6 37 5 19 3 39 31
39 37

Задание 2

begin
  var a:=Arr('январь','февраль','март','апрель','май','июнь',
    'июль','август','сентябрь','октябрь','ноябрь','декабрь');
  a.Where(w->('а' in w) and ('д' in w)).Println
end.

Результат
декабрь