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

Question

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

Comments

Я не знаю. Так в задание,как я поняла это буквы.

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.

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