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 câu trả lời
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.
Câu hỏi trong lớp
Xem thêm
