Дан массив из 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.
Внимание! Если программа не работает, обновите версию!
Задание 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.
Результат
декабрь