организуйте массив, содержащий 20 различных символов. отсортируйте его по возрастанию.

Хм.... а где сортировка-то?

Program z1;vara:array [1..20] of integer;i:integer;beginfor i:=1 to 20 do begin   a[i]:=i end;for i:=1 to 20 dobeginwrite (a[i]);end;end.Это если просто нужно заполнить массив

Попробуем сделать сортировку букв латинского алфавита.const  n = 20;var  a: array[1..n] of char;  i, j: integer;  t: char; begin  Randomize;  Writeln('Исходный массив');  for i := 1 to n do  begin    a[i] := Chr(random(26)+Ord('A'));    Write(a[i],' ')  end;  Writeln;  for i := 1 to n-1 do    for j := 1 to n-i do      if a[j] > a[j+1] then      begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;  Writeln('Отсортированный по возрастанию массив');  for i := 1 to n do Write(a[i],' ');  Writelnend.Тестовое решение:Исходный массивG Z L H X A R E C F G X O T C L N U D L Отсортированный по возрастанию массивA C C D E F G G H L L L N O R T U X X Z