Для оформления текстов кода программы рекомендуется использовать пропорциональные шрифты, к ним относится шрифт Courier New. Подобный формат позволит сделать код программы более наглядным. Компания АДМ Строй осуществляет продажу и доставку краски для стен и потолков различных производителей по низким ценам здесь: http://admgrup.ru/catalog/kraska/dlya-sten-potolkov/.
program CharMassivSorting;
uses
Crt,Dos;
var
Mas : array [1..255] of char;
i,k : integer;
n : char;
begin
ClrScr;
Writeln('Введите символы');
for i:=1 to 10 do readln(mas[i]);
for k:=10 to 2 do
begin
if Mas[i]>Mas[i+1] then
begin
n:=Mas[i];
Mas[i]:=Mas[i+1];
Mas[i+1]:=n
end;
end;
WriteLn('Отсоpтиpованный массив: ');
for i:=1 to 10 do
WriteLn(Mas[i]);
WriteLn;
n:='a';
WriteLn(Ord(n));
Readkey;
end.
Опубликовал vovan666
May 01 2013 06:53:04 ·
0 Комментариев ·
6172 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
