*Đây là dạng bài theo ý kiến cá nhân, mời bạn xem tham khảo bài của mình nhé!
uses crt;
var n,i,j,tg:byte;
tgtn:string;
ngay,thang,nam:array[1..100] of integer;
ten:array[1..100] of string;
begin
clrscr;
write('nhap so nguoi: ');readln(n);
for i:=1 to n do
begin
write('ten cua nguoi thu ',i,': ');readln(ten[i]);
write('ngay thang nam sinh cua ',ten[i],': ');readln(ngay[i],thang[i],nam[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ngay[i]>ngay[j] then
begin
tg:=ngay[i];
ngay[i]:=ngay[j];
ngay[j]:=tg;
tg:=thang[i];
thang[i]:=thang[j];
thang[j]:=tg;
tg:=nam[i];
nam[i]:=nam[j];
nam[j]:=tg;
tgtn:=ten[i];
ten[i]:=ten[j];
ten[j]:=tgtn;
end;
clrscr;
for i:=1 to n do
begin
writeln[ten[i]);
write('sinh ngay: ',ngay[i],'/',thang[i],'/',nam[i]);
writeln;
ebd;
readln;
end.
#NOCOPY
#NOPLAGIARISM
