PROGRAM CT45;
USES crt;
VAR n,i: BYTE;
A: ARRAY[1..255] OF INTEGER;
Min: INTEGER;
BEGIN
Writeln('Chuong trinh tim so nho nhat trong day ');
Write('Nhap so phan tu trong day : '); Readln(n);
FOR i:=1 TO n DO
BEGIN
Write('Nhap phan tu thu ',i,': '); Readln(A[i]);
END;
Min:=A[i];
FOR i:=1 TO n DO
IF Min>A[i] THEN Min:=A[i];
Write('So nho nhat trong day la : ',Min);
Readln
END.
Download: http://www.mediafire.com/?7w576z5x2dumoqv
USES crt;
VAR n,i: BYTE;
A: ARRAY[1..255] OF INTEGER;
Min: INTEGER;
BEGIN
Writeln('Chuong trinh tim so nho nhat trong day ');
Write('Nhap so phan tu trong day : '); Readln(n);
FOR i:=1 TO n DO
BEGIN
Write('Nhap phan tu thu ',i,': '); Readln(A[i]);
END;
Min:=A[i];
FOR i:=1 TO n DO
IF Min>A[i] THEN Min:=A[i];
Write('So nho nhat trong day la : ',Min);
Readln
END.
Download: http://www.mediafire.com/?7w576z5x2dumoqv