B1:nhập N và dãy a1...an

B2:minsuy ra a1 , i sr a2

B3: nếu i bé hơn N thì đưa ra min kt

B4 nếu min bé hơn ai thì đưa ra min

B5 i lớn hơn i-1 rồi quay lại B3

Uses crt;

Var i,n,max,min: integer;

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

Begin

Clrscr;

Write(‘ 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.