program chieucao;
var n, i, max_height, min_height: longint ;
a: array [ 1 .. 100 ] of longint ;
begin
write ( 'Nhap so luong nguoi: ' ) ;
readln ( n) ;
for i: = 1 to n do
begin
write ( 'Nhap chieu cao nguoi thu ' , i, ': ' ) ;
readln ( a[ i] ) ;
end ;
writeln ( 'In ra gia tri mang theo cot:' ) ;
for i: = 1 to n do
writeln ( a[ i] ) ;
max_height: = a[ 1 ] ;
min_height: = a[ 1 ] ;
for i: = 2 to n do
begin
if max_height<a[ i] then max_height: = a[ i] ;
if min_height>a[ i] then min_height: = a[ i] ;
end ;
writeln ( 'Chieu cao lon nhat la: ' , max_height) ;
writeln ( 'Chieu cao nho nhat la: ' , min_height) ;
end .
cHJvZ3JhbSBjaGlldWNhbzsKCXZhciBuLGksIG1heF9oZWlnaHQsbWluX2hlaWdodDpsb25naW50OwoJCWE6YXJyYXlbMS4uMTAwXSBvZiBsb25naW50OwpiZWdpbgoKCXdyaXRlKCdOaGFwIHNvIGx1b25nIG5ndW9pOiAnKTsKCXJlYWRsbihuKTsKCWZvciBpOj0xIHRvIG4gZG8KCQliZWdpbgoJCQl3cml0ZSgnTmhhcCBjaGlldSBjYW8gbmd1b2kgdGh1ICcsIGksICc6ICcpOwoJCQlyZWFkbG4oYVtpXSk7CgkJZW5kOwoJd3JpdGVsbignSW4gcmEgZ2lhIHRyaSBtYW5nIHRoZW8gY290OicpOwoJZm9yIGk6PTEgdG8gbiBkbyAKCQl3cml0ZWxuKGFbaV0pOwoJbWF4X2hlaWdodDo9YVsxXTsKCW1pbl9oZWlnaHQ6PWFbMV07Cglmb3IgaTo9MiB0byBuIGRvIAoJCWJlZ2luCgkJCWlmIG1heF9oZWlnaHQ8YVtpXSB0aGVuIG1heF9oZWlnaHQ6PWFbaV07CgkJCWlmIG1pbl9oZWlnaHQ+YVtpXSB0aGVuIG1pbl9oZWlnaHQ6PWFbaV07CgkJZW5kOwoJd3JpdGVsbignQ2hpZXUgY2FvIGxvbiBuaGF0IGxhOiAnLCBtYXhfaGVpZ2h0KTsKCXdyaXRlbG4oJ0NoaWV1IGNhbyBuaG8gbmhhdCBsYTogJywgbWluX2hlaWdodCk7CmVuZC4=