Tìm Giá Trị Lớn Nhất Mảng 1 Chiều - Code Pascal

• Trang chủ
• Pascal cơ bản
  • Câu lệnh vòng lặp
  • Câu lệnh điều kiện
  • Mảng 1 chiều
  • Mảng 2 chiều
  • Xâu
• Kiến thức mở rộng
• Pascal nâng cao
  • Đệ quy
  • Quay lui
  • Quy hoạch động
• Liên hệ

• Bài tập Pascal
• Học Pascal online
• Giải bài tập Pascal
• Công cụ Pascal
• Đề thi học sinh giỏi

- 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 *> Download: Turbo Pascal 7.0, Turbo Pascal for win 7, Free Pascal *> Giáo trình học Pascal *> Lý thuyết: Cấu trúc chương trình - Câu lệnh điều kiện - Câu lệnh vòng lặp - Mảng - Xâu *> Bài tập: * Yều cầu/Giải bài tập Pascal - Tìm số nguyên tố - Tìm UCLN, BCNN - Kiểm tra cấp số cộng - Đếm số lần xuất hiện mỗi chữ cái trong xâu You are here: » Home » Pascal cơ bản » 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 17:34 Đô Rê Mon ĐZ Đề 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. Related Posts : Bài tập Pascal, Mảng 1 chiều, Pascal cơ bản Nhãn: Bài tập Pascal, Mảng 1 chiều, Pascal cơ bản Nặc danh nói...

hay

lúc 09:18 2 tháng 11, 2012 Unknown nói...

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

lúc 16:33 18 tháng 12, 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 ạ? :pEm 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!

lúc 18:19 9 tháng 11, 2015 Unknown nói...

Xac dinh vi tri lam sao

lúc 11:14 9 tháng 5, 2016 Unknown nói...

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

lúc 09:44 2 tháng 6, 2016 Nặc danh 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;BeginWrite('Nhap N='); Readln(N);For i:=1 To N DoBeginWrite('A[',i,']='); Readln(A[i]);End;Max:=A[1];For i:=2 To N DoIf Max<A[i] Then Max:=A[i];for i:=1 to n doif max=A[i] then dem:=dem+1;Writeln('Phan tu lon nhat cua mang:', Max:3,'va co',dem,'so nhu vay'); Readln;End.

lúc 21:22 25 tháng 7, 2016 Unknown nói...

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

lúc 21:31 6 tháng 11, 2016 Unknown nói...

Tìm số xuât hiện nhièu nhất và xuất hiện bao nhiêu lần thi làm sao ạ

lúc 20:19 9 tháng 12, 2016 Nguyễn Phương Bắc nói...

Làm thử CTCon đi

lúc 21:02 16 tháng 2, 2017 Unknown nói...

Viết chương trình tính điểm trung bình của 4 tổ, mỗi tổ gồm 10 người, xếp hạng các tổ?

lúc 20:47 13 tháng 3, 2017 Nặc danh nói...

fgfgffgf

lúc 09:09 4 tháng 4, 2017 Nặc danh nói...

co ai biết làm thêm phần chỉ số không chỉ em đi

lúc 21:36 21 tháng 4, 2017 Unknown nói...

Nhập vào mảng nguyên n phần tử, in ra màn hình giá trị của phần tử chẵn lớn nhất,

lúc 10:40 10 tháng 5, 2017 Unknown nói...

Cần Giúp gấp :có một dãy hai chiều các số nguyên với thang n và n. Tìm số cột cuối cùng có các phần tử tạo thành một tiến trình số học

lúc 14:33 6 tháng 11, 2017 Unknown nói...

ai giúp e với ạ.. : cho mảng 1 chiều gồm n phần tử nguyên dương a1,a2,..an lập trình và đưa kết quả ra màn hình phần tử có giá trị nhỏ nhất. biết các ptu nhập từ bàn phím

lúc 19:00 30 tháng 11, 2017 Gog nói...

em hỏi, thế muốn tìm giá số giá trị nhỏ nhất của dãy, ghi ra chỉ số của chỉ số mang giá trị nhỏ nhất đó làm như nào ạ?

lúc 18:58 9 tháng 12, 2017 Nặc danh nói...

Program So_nho_nhat;Vari,n:Byte;so,Min:Integer;BeginWriteln('TIM SO NHO NHAT TRONG N SO NGUYEN');Writeln('---------------------------------');Write('Cho biet so phan tu nhap N= ');Readln(n);i:=1;Write('So thu ',i,' = ');Readln(so);Min:=so; {Giả sử A1 là số nhỏ nhất}For i:=2 To N DoBeginWrite('So thu ',i,' = ');Readln(so);If Min < so ThenMin:=so;End;Writeln;Writeln('+So nho nhat trong ',n,' so vua nhap la so: ',Min);Writeln(' Bam phim de ket thuc');ReadlnEnd.Cho mình hỏi Đề bài lập chương trình pascal nhập nguyên dương và mảng a1,a2,...an tìm giá trị nhỏ nhất và vị trí của nó có phải như vậy ko

lúc 00:10 16 tháng 12, 2017 Nặc danh nói...

Giúp em vs : khai báo mảng có 30 phần tử và in ra màn hình 5 phần tử lớn nhất

lúc 20:26 19 tháng 4, 2018 Unknown nói...

chju thoi

lúc 21:45 25 tháng 11, 2018 Unknown nói...

Min thì viết sao ạ?

lúc 20:16 28 tháng 11, 2018 tienanhit nói...

các bạn có thể tham khảo thêm Viết chương trình tìm số lơn nhất nỏ nhất

lúc 21:06 4 tháng 6, 2019 girl little nói...

giúp em với: viết chương trình tìm số dương cuối cùng trong mảng

lúc 23:46 29 tháng 10, 2019 Unknown nói...

Giúp em giải bài tập pascal tìm số lớn nhất trong mảng mà sử dụng 2 tệp với ạ?

lúc 13:36 9 tháng 11, 2019 Unknown nói...

nhu con cac

lúc 16:06 19 tháng 11, 2019 Unknown nói...

ok

lúc 16:07 19 tháng 11, 2019 Unknown nói...

wdewdawdawdawwawdwad

lúc 16:10 19 tháng 11, 2019

Đăng nhận xét

Previous Article Next Article Trang chủ Đăng ký: Đăng Nhận xét (Atom) Widget By Devils Workshop

Đọc nhiều nhất

• Bài 5: Xâu ký tự (String) trong Pascal Xâu là gì? Để xử lý các chuỗi văn bản, Pascal đưa ra một kiểu dữ liệu mới gọi là xâu ký tự và được định nghĩa bằng từ khóa STRING. Xâu ký tự...
• Bài tập Pascal - Giải bài tập Pascal (cơ bản) Nhằm đáp ứng nhu cầu hỏi đáp về Pascal của anh em, đây sẽ là khu vực hỏi đáp, giải các bài tập về Pascal. Trước khi đặt câu hỏi, bạn cần lư...
• Tìm ước chung lớn nhất và bội chung nhỏ nhất pascal Ý tưởng: Lấy số lớn hơn trong 2 số trừ đi nhau. Lặp lại thao tác đến khi nào 2 số bằng nhau -> UCLN. Lấy tích của 2 số chia cho UCLN -...
• Bài 3: Câu lệnh vòng lặp trong Pascal (for, while, repeat) - Đánh răng mỗi ngày hai lần, học Tin học mỗi tuần 2 tiết, mỗi ngày tắm một lần... - Học cho đến khi thuộc bài, rửa tách trà cho đến khi sạ...
• Kiểm tra số nguyên tổ trong pascal Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không. Đây là một bài toán rất căn bản trong Pascal. Ý tưởng: Số nguyên tố là s...
• Tệp - Kiểu dữ liệu tệp trong Pascal Chuyên đề :   KIỂU DỮ LIỆU TỆP 1 Khái niệm về tệp: Tệp là một dãy các phần tử cùng kiểu được sắp xếp một cách tuần tự. Tệp dữ liệu đ...
• Ngày tháng năm sau ngày được nhập N ngày Đề bài: Nhập ngày tháng năm. Hãy cho biết ngày tháng năm sau đó N ngày.

Đám mây

Bài tập Pascal (49) Pascal cơ bản (38) Mảng 1 chiều (17) Pascal mở rộng (17) Học Pascal (11) Câu lệnh lặp (9) Pascal nâng cao (8) Bài tập sgk (6) Vòng lặp for (6) Xâu (5) Câu lệnh điều kiện (4) Giáo trình tài liệu (4) Kiểu tệp (3) Mảng 2 chiều (3) Chương trình con (2) Pascal Tools (2) Vòng lặp while (2) Bài tập trắc nghiệm (1) Câu lệnh case (1) Pascal vui (1) vòng lặp repeat (1)

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.