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

Попробуем сделать сортировку букв латинского алфавита. 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],' ');   writeln end. тестовое решение: исходный массив 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

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

o__o

 

var i, s : integer; begin

for i : = 1000 to 9999 do if (i * 4 > = 1000) and (i * 4 < = 9999) then begin s : = i * 4; if ((i mod 100) div 10 = ( s div 1000)) then if ((i mod 10) = ( s mod 1000) div 100) then if ( i div 1000 = (s mod 100) div 10) then if ( ((i mod 1000 div 100) < > i div 1000) and ((i mod 1000 div 100) < > (i mod 100) div 10) and ((i mod 1000 div 100) < > i mod 10)) then if ( (s mod 10 < > s div 1000) and (s mod 10 < > (s mod 1000) div 100) and (s mod 10 < > (s mod 100) div 10)) then writeln(i, ' = ', i * 4); end;

readln; end.

program a1;   var y: array[1..14] of integer; k,s1,s2: byte; miny,maxy,m: integer;   begin  writeln('vvedite massiv y: '); {просим ввести массив}  for k: =1 to 14 do read(y[k]); {записываем массив}  s1: =0; s2: =0; {счётчики на 0}  miny: =y[1]; {присваиваем первому значению }  for k: =2 to 14 do begin if y[k] < miny then degin miny: =y[k]; s1: =s1+1; end; {если есть меньше, то присваиваем}  maxy: =y[1]; {присваиваем второму значению > < }  for k: =2 to 14 do begin if y[k] > maxy then degin maxy: =y[k]; s2: =s2+1; end; {если есть больше, то присваиваем}  m: =y[s1]; {используя переменную m меняем местами элементы}  y[s1]: =y[s2];   y[s2]: =m;   writeln('novyi massiv: ');   for k: =1 to 14 do write(y[k],' '); {выводим новый массив}  readln  end.