Viết chương trình nhập vào danh sách họ tên học sinh trong lớp học. Sắp xếp danh sách này theo thứ tự tăng dần của độ dài họ tên
Ai chỉ mình bài đó với????????????????????????????????????
Viết chương trình nhập vào danh sách họ tên học sinh trong lớp học. Sắp xếp danh sách này theo thứ tự tăng dần của độ dài họ tên
Ai chỉ mình bài đó với????????????????????????????????????
program sapxep_dodai;
uses crt;
var ten:array[1..100] of string;
tg:string;
n,i,j:byte;
begin
clrscr;
write(‘Nhap so hoc sinh: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap ten hoc sinh thu ‘,i,’: ‘); readln(ten[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if length(ten[i])>length(ten[j]) then
begin
tg:=ten[i];
ten[i]:=ten[j];
ten[j]:=tg;
end;
writeln(‘Thu tu la: ‘);
for i:=1 to n do writeln(ten[i]);
readln;
end.
Đây nhé bạn!