Chương trình 23

PROGRAM MaxMin;
USES crt;
VAR i, n, Max, Min: INTEGER;
A: ARRAY[1..100] OF INTEGER;
BEGIN
clrscr;
write('Hay 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 Max:= a[i];
IF min > a[i] THEN Min:= a[i]
END;
writeln('So lon nhat la Max =', Max);
writeln('So nho nhat la Min =',Min);
readln
END.

Download: http://www.mediafire.com/?4igca5166t0n2jb