Попробуем сделать сортировку букв латинского алфавита.
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.
