Giả sử phần tử min cần tìm là phần tử k. Ban đầu ta cho k=1. Sau đó cho i chạy từ 2 đến n, nếu a[k] > a[i] thì rõ ràng a[i] bé hơn, ta gán k bằng i. Sau khi duyệt toàn bộ dãy thì k sẽ là chỉ số của phần tử min.
Tìm min:
procedure timmin;
var i, k : integer;
begin
k := 1;
for i := 2 to n do
if a[k] > a[i] then k := i;
writeln(‘Phan tu nho nhat la a[',k,']=’,a[k]);
end;
Tìm max:
procedure timmax;
var i, k : integer;
begin
k := 1;
for i := 2 to n do
if a[k] < a[i] then k := i;
writeln(‘Phan tu lon nhat la a[',k,']=’,a[k]);
end;
Theo laptrinh.vn
0 nhận xét:
Đăng nhận xét