Cho dãy số nguyên A gôm N phần tử a1..an hãy xác định bài toán và viết thuật toán tìm phân tử nhỏ nhất lớn nhất trong đãy

program bai_giai;

uses crt;

var a:array[1..1000]of longint; n,i,min,max:longint;

begin

clrscr;

write('nhap n:');readln(n);

for i:=1 to n do readln(a[i]);

min:=a[1];

max:=a[1];

for i:=1 to n do if(a[i]<min)then min:=a[i];

for i:=1 to n do if(max<a[i])then max:=a[i];

writeln('min=',min);

writeln('max=',max);

readln;

end.

**Xác định bài toán:

INPUT: N và dãy số nguyên A1,....,AN

OUTPUT: Phần tử lớn nhất và nhỏ nhất trong dãy A

**Thuật toán:

Bước 1: Nhập N và dãy số nguyên A1,...,AN

Bước 2: Max←A[1]; Min←A[1]; i←2;

Bước 3: Nếu A[i]>Max thì Max←A[i]

Bước 4: Nếu A[i]<Min thì Min←A[i]

Bước 5: i←i+1

Bước 6: Nếu i<=N thì quay lại bước 3

Bước 7: Xuất Max và Min ra màn hình và kết thúc thuật toán