Tìm giá trị lớn nhất trong mảng một chiều là một ví dụ phổ biến khi học về mảng trong Pascal.
Đề bài
Viết chương trình tìm giá trị lớn nhất của một mảng chứa các số nguyên gồm N phần tử.
Phân tích
– Cho số lớn nhất là số đầu tiên: Max:=a[1].
– Duyệt qua các phần tử a[i], với i chạy từ 2 tới N: Nếu a[i]>Max thì thay Max:=a[i];
Code mẫu
Uses Crt; Type Mang = ARRAY[1..50] Of Integer; Var A:Mang; N,i,Max:Integer; Begin Write('Nhap N='); Readln(N); For i:=1 To N Do Begin Write('A[',i,']='); Readln(A[i]); End; Max:=A[1]; For i:=2 To N Do If Max<A[i] Then Max:=A[i]; Writeln('Phan tu lon nhat cua mang:', Max); Readln; End.
Qua bài này, bạn có thể làm thêm một ví dụ nữa chẳng hạn như “Tìm giá trị nhỏ nhất của một mảng số nguyên”.
tôi có câu hỏi : ‘hãy in ra phần tử nằm giữa max và min nhưng phần tử nằm giữa max và min này không xuất hiện trong mảng ‘ . thank you !
su