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ớ

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????????????????????????????????????

0 bình luận về “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ớ”

  1. 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.

    Bình luận

Viết một bình luận