uses crt; var max,min,n,i:integer;a:array[1..100] of integer; begin clrscr; write('Nhap so luong phan tu cua day: ');readln(n); For i:=1 to n do begin write('Nhap so thu ',i,': ');readln(a[i]) end; max:=a[1];min:=a[1]; for i:=2 to n do begin if a[i]>max then max:=a[i]; if a[i]<min then min:=a[i] end; writeln('So lon nhat la: ',max); writeln('So nho nhat la: ',min); readln end.
