Bài Tập Pascal - Tìm Giá Trị Lớn Nhất Trong Mảng Một Chiều

Trang chủ » Tìm Số Lớn Nhất Và Nhỏ Nhất Trong Mảng Pascal » Bài Tập Pascal - Tìm Giá Trị Lớn Nhất Trong Mảng Một Chiều

Có thể bạn quan tâm

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 tập Pascal - Tìm giá trị lớn nhất trong mảng một chiều

Đề 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”.

Tham khảo

  • Pascal Array Docs

3.7 42 votesĐánh giá bài viết

Từ khóa » Tìm Số Lớn Nhất Và Nhỏ Nhất Trong Mảng Pascal