Ответы и объяснения

  • Tlalok
  • почетный грамотей
2013-03-12T07:39:24+00:00

const

  n = 50;

var

  c:array[1..n] of char;

  i, j:integer;

  t:char;

begin

  randomize;

   writeln('Исходный массив:');

  for i := 1 to n do

  begin

    c[i] := chr(random(32) + 224);

    write(c[i], ' ');

  end;

  

  writeln;

  writeln('Преобразованный массив:');

  for i := 1 to n - 1 do

    for j := 1 to n - i do

      if c[j] > c[j + 1] then

      begin

        t := c[j];

        c[j] := c[j + 1];

        c[j + 1] := t;

      end;

   for i := 1 to n do

     write(c[i], ' ');

  writeln;

end.