- Ebook Giải thuật và lập trình Lê Minh Hoàng
- Các thuật toán sắp xếp trong Pascal

Tìm giá trị lớn nhất mảng 1 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ử.

Ý tưởng:
- 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];

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.


Huy Nguyễn nói...

Hien thi so' cac so' co gtri = gtri lon nhat thi lam the nao a?


16:33 Ngày 18 tháng 12 năm 2012
Unknown nói...
Nhận xét này đã bị tác giả xóa.
Nặc danh nói...

a chưa biết thì làm sao biết nó > hay < 50 ạ?
Nếu chưa xđ đc miền giá trị của a thì dùng mảng ntn vậy ạ
với lại khi khai báo mảng kiểu ARRAY (1..50) of integer là chỉ số phần tử của dãy hay là chỉ miền giá trị của a vậy ạ?
Nếu em khai báo biến là a: Array (1..max) of integer chẳng hạn thì có đúng ko ạ? :p
Em mới học nên còn nhiều thắc mắc, kính mong quý thầy cô, anh chị giải thích, làm rõ dùm em đc ko ạ? Em xin chân thành cảm ơn!


18:19 Ngày 09 tháng 11 năm 2015
doan pi nói...

Xac dinh vi tri lam sao


11:14 Ngày 09 tháng 05 năm 2016
Đạt Phạm Văn nói...

Còn tìm phần tử lớn nhì trong mảng thì sao ạ????


09:44 Ngày 02 tháng 06 năm 2016
Minh Vuong Phan nói...

hien thi so cac so lon nhat:

Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,Max,dem: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];
for i:=1 to n do
if max=A[i] then dem:=dem+1;
Writeln('Phan tu lon nhat cua mang:', Max:3,'va co',dem,'so nhu vay');
Readln;
End.


21:22 Ngày 25 tháng 07 năm 2016
Unknown nói...

the nay cung chua hay . lam sao de tim ca min va max trong mot bai toan luon nhi


21:31 Ngày 06 tháng 11 năm 2016

Đăng nhận xét

Thành viên Blog

Tổng số lượt xem trang

Translate

Return to top of page Copyright © 2012 | Theme by Hack Tutors. Cung cấp bởi Blogger.
Các code pascal trong blog được sưu tầm, lựa chọn sao cho tối ưu nhất. Cảm ơn các tác giả đã viết thuật toán.