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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.

Результат

декабрь