Question

Дан массив из 20 слов отсортировать слова по количеству букв в слове от меньшего к большему

Answer 1

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var a:=ReadArrString('Введите слова построчно',20);
  a.OrderBy(x->x.Length).Println
end.

Тестовое решение:
Введите слова построчно Январь
Февраль
Март
Апрель
Май
Июнь
Июль
Август
Сентябрь
Октябрь
Ноябрь
Декабрь
Понедельник
Вторник
Среда
Четверг
Пятница
Суббота
Воскресенье
ЭтоВсе!
Май Март Июнь Июль Среда Январь Апрель Август Ноябрь Февраль Октябрь Декабрь Вторник Четверг Пятница Суббота ЭтоВсе! Сентябрь Понедельник Воскресенье

Answer 2

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
  var a:=ReadArrString('Введите слова построчно',20);
  a.OrderBy(x->x.Length).Println
end.

Тестовое решение:
Введите слова построчно Январь
Февраль
Март
Апрель
Май
Июнь
Июль
Август
Сентябрь
Октябрь
Ноябрь
Декабрь
Понедельник
Вторник
Среда
Четверг
Пятница
Суббота
Воскресенье
ЭтоВсе!
Май Март Июнь Июль Среда Январь Апрель Август Ноябрь Февраль Октябрь Декабрь Вторник Четверг Пятница Суббота