codeturbopascal
Chào mừng bạn đến với codeturbopascal
hảy tham gia và chia sẻ kinh nghiệm
codeturbopascal
Chào mừng bạn đến với codeturbopascal
hảy tham gia và chia sẻ kinh nghiệm
codeturbopascal
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.

codeturbopascal

Nơi Chia Sẻ Của Những Người Đam Mê Pascal
 
Trang ChínhTrang Chính  PortalPortal  Latest imagesLatest images  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng Nhập  
Tìm kiếm
 
 

Display results as :
 
Rechercher Advanced Search
Most Viewed Topics
Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình.
Xóa các phần tử trùng nhau trong mảng 1 chiều
Lập chương trình Pascal để in bảng cửu chương ra màn hình.
Đếm số nguyên tổ trong mảng 1 chiều
Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không.
iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X.
Giải nén xâu trong pascal
Vừa gà vừa chó, bó lại cho tròn, ba mươi sáu con, một trăm chân chẵn. Hỏi có bảo nhiêu chó gà?
Tính tổng chỉ sổ cột hàng chẵn trong mảng 2 chiều
Trò Chơi Đánh Chữ Trên PASCAL
Top posters
codeturbopascal
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
mzone1998
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
tungduong08
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
hungthomvp
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
hangcincin
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
vie_tetua
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
saobang050506
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
tinnguyen0702
Tìm giá trị lớn nhất mảng 1 chiều Vote_lcapTìm giá trị lớn nhất mảng 1 chiều Voting_barTìm giá trị lớn nhất mảng 1 chiều Vote_rcap 
Latest topics
» Đếm số nguyên tổ trong mảng 1 chiều
Tìm giá trị lớn nhất mảng 1 chiều EmptyTue Dec 30, 2014 9:23 pm by hangcincin

» Có ai chơi vlcm không
Tìm giá trị lớn nhất mảng 1 chiều EmptyTue Dec 30, 2014 9:18 pm by hangcincin

» Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không.
Tìm giá trị lớn nhất mảng 1 chiều EmptyFri Apr 18, 2014 4:22 pm by hungthomvp

» Đây là các bài thi khảo sát HSG nè
Tìm giá trị lớn nhất mảng 1 chiều EmptyWed Apr 02, 2014 4:27 pm by hungthomvp

» Trò Chơi Đánh Chữ Trên PASCAL
Tìm giá trị lớn nhất mảng 1 chiều EmptyWed Feb 05, 2014 1:30 pm by tinnguyen0702

» Làm gấp cho em cái bài mảng 2 chiều vs anh chị em ơi.
Tìm giá trị lớn nhất mảng 1 chiều EmptySun Sep 22, 2013 2:47 am by vie_tetua

» Lập chương trình Pascal để in bảng cửu chương ra màn hình.
Tìm giá trị lớn nhất mảng 1 chiều EmptySun Apr 21, 2013 7:07 pm by tungduong08

» iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X.
Tìm giá trị lớn nhất mảng 1 chiều EmptySun Apr 21, 2013 7:04 pm by tungduong08

» hướng dẩn cách đăng ký
Tìm giá trị lớn nhất mảng 1 chiều EmptySun Apr 21, 2013 2:36 pm by codeturbopascal

Statistics
Diễn Đàn hiện có 39 thành viên
Chúng ta cùng chào mừng thành viên mới đăng ký: xuanmaiqcnh.nguyen2002

Tổng số bài viết đã gửi vào diễn đàn là 40 in 20 subjects

 

 Tìm giá trị lớn nhất mảng 1 chiều

Go down 
Tác giảThông điệp
codeturbopascal
Admin
Admin
codeturbopascal


Gemini Tổng số bài gửi : 22
Danh vọng : 64 Được thank : 7
Ngày Tham gia : 19/04/2013
Tuổi : 27
Đến từ : Quảng trị
Thú Cưng : 02

Tìm giá trị lớn nhất mảng 1 chiều Empty
Bài gửiTiêu đề: Tìm giá trị lớn nhất mảng 1 chiều   Tìm giá trị lớn nhất mảng 1 chiều EmptySun Apr 21, 2013 2:14 pm

Code:

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.
Về Đầu Trang Go down
https://codeturbopascal.forumvi.com
 
Tìm giá trị lớn nhất mảng 1 chiều
Về Đầu Trang 
Trang 1 trong tổng số 1 trang
 Similar topics
-
» iết CT nhập từ bàn phím mảng 1 chiều và xóa 1 phần tử của mảng có n phần tử.
» iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X.
» Đếm số nguyên tổ trong mảng 1 chiều
» Xóa các phần tử trùng nhau trong mảng 1 chiều
» Tính tổng chỉ sổ cột hàng chẵn trong mảng 2 chiều

Permissions in this forum:Bạn không có quyền trả lời bài viết
codeturbopascal :: Ngôn ngử lập trình pascal :: Mảng 1 chiều-
Chuyển đến