Попробуем сделать сортировку букв латинского алфавита.
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
Const n1=1000; m1=1000; var n,m,i,j,min,max,i_max:integer; a:array[1..n1,1..m1]of integer; begin writeln('введите кол строк и столбцов'); readln(n,m); for i:=1 to n do for j:=1 to m do readln(a[i,j]); for i:=1 to n do begin writeln; for j:=1 to m do write(a[i,j]:4); end; max:=-32767; for i:=1 to n do begin min:=a[i,1]; for j:=1 to m do if a[i,j]<min then min:=a[i,j]; if min>max then begin max:=min; i_max:=i; end; end; writeln; writeln('i: ',i_max,' znach: ',max); 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],' ');
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