BÀI TẬP 3_MẢNG

            Nhập vào dãy số gồm N phần tử (N được nhập và từ bàn phím). Viết chương trình in ra màn hình số nhỏ nhất và số lớn nhất trong dãy số vừa nhập.

CODE THAM KHẢO

program BT3;

uses crt;

var A:array[1..100] of integer;

    i,n,min,max: integer;

begin

    clrscr;

    write('Nhap so phan tu N = '); readln(n);

    for i:=1 to n do

        begin

            write('Nhap phan tu thu ',i,': ');

            readln(A[i]); 

        end;

    min:=A[1]; max:=A[1];

    for i:=1 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.