program MaxMin;

// Khai báo tên chương trình là MaxMin

var i, n, Max, Min : integer;

// Khai báo biến i, n, Max, Min thuộc kiểu số nguyên

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

// Khai báo mảng A chứa 100 phần tử số nguyên

begin

// Từ khoá bắt đầu phần thân chương trình

clrscr;

// Lệnh xoá màn hình

write('Hay nhap do dai day so, N = '); readln(n);

// In xâu Hay nhap do dai day so, N = ra màn hình

// Nhập giá trị từ bàn phím, gán giá trị đó cho n

write('Hay nhap cac phan tu cua day so : ');

// In xâu Hay nhap cac phan tu cua day so :

for i := 1 to n do

// Giá trị biến đếm có giá trị chạy từ 1 đến n

begin

// Từ khoá bắt đầu câu lệnh ghép

write('a[', i ,'] = '); readln(a[i]);

// In a[1] = , nhập giá trị cho a[1], in a[2] = , nhập giá trị a[2] , ... cho tới a[n]

end;

// Từ khoá kết thúc câu lệnh ghép

Max := a[1]; Min := a[1];

// Gán giá trị a[1] cho Max và Min

for i := 2 to n do

// Giá trị biến đếm i chạy từ 2 đến n

begin if Max < a[i] then Max := a[i];

// Nếu a[i] lớn hơn Max thì Max nhận giá trị mới là a[i]

if Min > a[i] then Min := a[i];

// Nếu a[i] nhỏ hơn Min thì Min nhận giá trị mới là a[i]

end;

// Từ khoá kết thúc câu lệnh ghép

writeln('So lon nhat la Max = ', Max);

// In xâu So lon nhat la Max = và giá trị biến Max

writeln('So nho nhat la Min = ', Min);

// In xâu So nho nhat la Min = và giá trị biến Min 

readln

// Tạm dừng chương trình

end.

// Kết thúc 

#minh gửi code pascal nhá 
#nếu không hiểu có thể cmt cho mình nhá 
#nhớ vote cho mình 5 sao và tym , ctlhn nhá 
#code pascal 

program MaxMin;   //ten bai
uses crt;
var i,n,Max,Min : integer;     //khai bao kieu nguyen
    A:array[1..100] of integer;      //khai bao mang kieu nguyen
begin       //bat dau chuong trinh 
clrscr;      //lam sach chuong trinh khi chay
write('Hay nhap do dai cua day so , N = ');         //xuat chu 
readln(n);      //nhap n
for i:=1 to n do      //dat chay tu 1 den n 
begin
write('a[',i,']= ' );       //xuat chu a[i]
readln(a[i]);     //nhap a[i];
end;
Max:=a[1];    //dat max = 1;
Min:=a[1];     //dat min = 1;
for i:=2 to n do    //dat chay tu 2 den n
begin
if Max < a[i] then     //neu a[i] > max 
Max:=a[i];    //thi a[i]=Max
if Min > a[i] then    // neu a[i] < min 
Min:=a[i];    //thi a[i]=min
end;
writeln('So lon nhat la Max = ',Max);     //in ra so lon nhat 
writeln('So nho nhat la Min = ',Min);     //in ra so nho nhat
readln 
end.    //ket thuc chuong trinh