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
2 câu trả lời
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
Câu hỏi trong lớp
Xem thêm
