PascalABC.NETbeginvar n := ReadInteger('Введите длину массива:');var a := ReadArrInteger('Введите элементы массива:',n); Print('Отсортированный по возрастанию:',a.Order.JoinToString);end.
Пример работы:
Спасибо
Ответ дал: Гость
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
Популярные вопросы