Dãy ký tự
Program Sosanhkitu;
Uses sysutils, uses;
Var
KT, N, i, j : Longint;
b : string;
a:array[1..10000] of string;
begin
Write('Nhap so chuoi N: '); Readln(N);
i:=1;
While i <= N do
begin
Write('Nhap chuoi ', i); Readln(a[i]);
i:=i+1;
end;
i:=1;
j:=2;
while i <= N do
begin
KT:=CompareStr(a[i], a[j]);
if KT > 0 then begin
b:= a[i];
a[i]:=a[j];
a[j]:=b; end;
i:=i+1;
j:=j+1;
end;
Writeln('Cac chuoi sau sap xep la:');
j:=1;
while j<= N do
Begin
Writeln(a[i]);
i:=i+1;
end;
Readln;
end.
Số là
Program sosanhso;
Uses crt;
Var a:array[1..1000] of integer;
i, j, N: integer;
Begin
Writeln('Nhap so N'); Readln(N);
i:=1;
While i <= N do;
begin Write('Nhap so thu', i ); Readln(a[i]); i:=i+1;end;
i:=1;
j:=2;
While i <= N do;
begin
if a[i] > a[j] then begin
b:=a[i];
a[i]:=a[j];
a[j]:= b;
end;
i:=i+1;
j:=j+1;
end;
i:=1;
While i <= N do begin
Writeln(a[i]);
i:=i+1;
end;
end.
____________________________________
Chỗ so sánh chữ mình không biết nó có bị lỗi hông nha vì mình chưa test
