Chào mừng quý vị đến với website của ...
Quý vị chưa đăng nhập hoặc chưa đăng ký làm thành viên, vì vậy chưa thể tải được các tài liệu của Thư viện về máy tính của mình.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
Nếu chưa đăng ký, hãy nhấn vào chữ ĐK thành viên ở phía bên trái, hoặc xem phim hướng dẫn tại đây
Nếu đã đăng ký rồi, quý vị có thể đăng nhập ở ngay phía bên trái.
bai 3 vong 2 thi tp2009
- 0 / 0
-
(Tài liệu chưa được thẩm định)
Nguồn:
Người gửi: Hoàng Nam Trung (trang riêng)
Ngày gửi: 18h:11' 09-01-2010
Dung lượng: 24.0 KB
Số lượt tải: 218
Nguồn:
Người gửi: Hoàng Nam Trung (trang riêng)
Ngày gửi: 18h:11' 09-01-2010
Dung lượng: 24.0 KB
Số lượt tải: 218
Số lượt thích:
0 người
Giai de thi hsg thanh pho bai 3 vong 2
var ten,ho:array[1..100] of string;
i,n,j:integer;
temp:string;
begin
write(`Nhap so nguoi co trong danh sach `);readln(n);
for i:=1 to n do
begin
write(`Nhap ho nguoi thu `,i,`:` );readln(ho[i]);
write(`Nhap ten nguoi thu `,i,`:` );readln(ten[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ten[i]>ten[j] then
begin
temp:=ten[i];
ten[i]:=ten[j];
ten[j]:=temp;
temp:=ho[i];
ho[i]:=ho[j];
ho[j]:=temp;
end;
for i:=1 to n do
writeln(ho[i],` `,ten[i]);
readln
end.
var ten,ho:array[1..100] of string;
i,n,j:integer;
temp:string;
begin
write(`Nhap so nguoi co trong danh sach `);readln(n);
for i:=1 to n do
begin
write(`Nhap ho nguoi thu `,i,`:` );readln(ho[i]);
write(`Nhap ten nguoi thu `,i,`:` );readln(ten[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if ten[i]>ten[j] then
begin
temp:=ten[i];
ten[i]:=ten[j];
ten[j]:=temp;
temp:=ho[i];
ho[i]:=ho[j];
ho[j]:=temp;
end;
for i:=1 to n do
writeln(ho[i],` `,ten[i]);
readln
end.
Các ý kiến mới nhất