СРОЧНО!!! Дан массив из 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.
Результат
декабрь
Не нашли ответ?
Похожие вопросы