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

Question

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

Comments

Слова вводить с клавиатуры? 

Answer 1

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

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

Comments

Вот такой он, современный Паскаль! )))

Answer 2

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

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