program tim_max_min ; var i,n,max,min:integer; a:array[1..100] of integer; begin write('nhap do dai cua day so n=');readln(n); writeln('nhap cac phan tu cua day so :'); for i:=1 to n do begin write('a[',i,']=');readln(a[i]); end; max :=a[1] ; min:=a[1]; for i:=2 to n do begin if max a[i] then min :=a[i]; end; writeln('so lon nhat la:',max); writeln('so be nhat la:',min); readln end.