var a: array[1..1000] of string; maxx,n: longint; procedure nhap; var i: longint; begin readln(n); for i:=1 to n do readln(a[i]); end; procedure lonnhat; var i: longint; begin maxx:=1; for i:=2 to n do if a[i]>a[maxx] then maxx:=i; writeln(a[maxx]); end; procedure dainhat; var dmax,i: longint; begin dmax:=1 for i:=1 to n do if length(a[i])>length(a[dmax]) then dmax:=i; writeln(a[dmax]); end; begin assign(input,'cbxaumax.inp'); reset(input); assign(output,'cbxaumax.out'); rewrite(output); nhap; lonnhat; dainhat; end.
* Chuyên dạy lập trình ONLINE cho học sinh THCS, THPT *.
Mọi giao lưu, trao đổi, xin liên hệ: Lê Quang Vinh - zalo: 037.803.8755.
Page: Lớp học Code Sky
Group FB1: Ôn thi HSG9 - THTB - TS10 chuyên tin
Group FB2: Học Scratch - Ôn thi Tin học trẻ bảng A
Thứ Tư, 27 tháng 4, 2022
CBXAUMAX PASCAL
Đăng ký:
Đăng Nhận xét (Atom)
Không có nhận xét nào:
Đăng nhận xét
Lưu ý: Chỉ thành viên của blog này mới được đăng nhận xét.