Lập trình nhập vào họ tên của e ng và đưa ra màn hình họ tên người dài nhất

0 bình luận về “Lập trình nhập vào họ tên của e ng và đưa ra màn hình họ tên người dài nhất”

1. uses crt;
   var a:array [1..1000] of string; max:string;
       i,e:byte;
   begin
      clrscr;
      write(‘Nhap e: ‘); readln(e);
      for i:=1 to e do
      begin
         write(‘Nhap ho ten nguoi thu ‘,i,’: ‘);
         readln(a[i]);
      end;
      max:=a[i];
      for i:=2 to e do
      if length(a[i])>length(max) then max:=a[i];
      write(‘Ho ten dai nhat la: ‘,max);
   end.

   Bình luận