program maxmin; uses crt; var m:array[1..100] of integer;max,m1,i,min:integer; BEGIN clrscr; Write('Nhap so phan tu cua day: ');readln(m1); for i:=1 to m1 do begin write('Nhap phan tu thu ',i,' : ');readln(m[i]) end; max:=m[1];min:=m[1]; for i:=2 to m1 do if m[i]>max then max:=m[i]; for i:=2 to m1 do if m[i]<min then min:=m[i]; writeln('Max: ',max); writeln('Min: ',min); readln END.
