Упорядочить элементы массива в алфавитном порядке

@Денис Яландаев · Регистрация: 28.06.2013

Author24 — интернет-сервис помощи студентам

Дан одномерный массив символов, состоящий из латинских букв. Упорядочить элементы массива в алфавитном порядке

@MicM · 28.06.2013, 22:31

Pascal

const
  n=20;
var
  a:array [1..n] of char;
  i,j:byte;
  tmp:char;
begin
  randomize;
  for i:=1 to n do
   begin
    a[i]:=chr(random(26)+97);
    write (a[i],' ');
   end;
  writeln;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if ord(a[j])<ord(a[i]) then
     begin
      tmp:=a[i];
      a[i]:=a[j];
      a[j]:=tmp;
     end;
  for i:=1 to n do write (a[i],' ');
  writeln;
  readln;
end.

@Денис Яландаев · 28.06.2013, 22:32 **[ТС]**

спасибо)

@Денис Яландаев 0 / 0 / 0 Регистрация: 28.06.2013 Сообщений: 15
		1
	Упорядочить элементы массива в алфавитном порядке 28.06.2013, 17:13. Показов 2120. Ответов 2 Метки нет (Все метки) Дан одномерный массив символов, состоящий из латинских букв. Упорядочить элементы массива в алфавитном порядке 0

@Денис Яландаев 0 / 0 / 0 Регистрация: 28.06.2013 Сообщений: 15
	28.06.2013, 22:32 [ТС]	3
	спасибо) 0

Упорядочить элементы массива в алфавитном порядке

Решение