Tin Học - Tìm Số Lớn Thứ 2 Của Mảng Trong Pascal - HOCMAI Forum

• Diễn đàn Bài viết mới Tìm kiếm trên diễn đàn
• Đăng bài nhanh
• Có gì mới? Bài viết mới New media New media comments Status mới Hoạt động mới
• Thư viện ảnh New media New comments Search media
• Story
• Thành viên Đang truy cập Đăng trạng thái mới Tìm kiếm status cá nhân

Đăng nhập Đăng ký

Tìm kiếm

Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Tìm nâng cao… Everywhere Đề tài thảo luận This forum This thread Chỉ tìm trong tiêu đề By: Search Advanced…

• Bài viết mới
• Tìm kiếm trên diễn đàn

Menu Install the app Install Tin họcTìm số lớn thứ 2 của mảng trong pascal

• Thread starter Trần Thu Hằng
• Ngày gửi 22 Tháng một 2019
• Replies 4
• Views 11,977

• Bạn có 1 Tin nhắn và 1 Thông báo mới. [Xem hướng dẫn] để sử dụng diễn đàn tốt hơn trên điện thoại

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học cấp III

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

Trần Thu Hằng

Học sinh mới

Thành viên 3 Tháng một 2019 5 0 1 23 Bắc Giang THPT Hiệp Hòa 3 [TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Giúp mình với ạ: Tìm số lớn thứ 2 của mảng trong pascal?? Mình cảm ơn trước :3

Trâm Nguyễn Thị Ngọc

Giải Nhất event Thế giới Sinh học 2

Thành viên 13 Tháng mười 2018 1,523 1,339 241 19 Quảng Trị Trường TH&THCS Hải Ba Mã: var a:array[1..100] of integer; i,j,tg,n:integer; Begin readln(n); for i:=1 to n do readln(a[i]); for i:=1 to n-1 do for j:=i+1 to n do if a[i]<a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; write('phan tu lon thu 2 la:',a[2]); readln End.

• 

Reactions: Deathheart

nguyen tran thanh nha

Học sinh chăm học

Thành viên 10 Tháng sáu 2018 107 53 61 21 Bà Rịa - Vũng Tàu thcs kim long var t,n,i,max1,max:longint; a:array[1..100] of longint; begin readln(n); for i:= 1 to n do readln(a); max:= a[1]; for i:=2 to n do if max<a then max:= a; if max= a[1] then max1:=a[2] else max1:= a[1]; for i:= 2 to n do if ( max1<a) and(a<> max) then max1:= a; write('so lon thu 2 :',max1); end. I

ItachiQN

Học sinh mới

Thành viên 29 Tháng chín 2021 2 4 6 20 Quảng Ngãi uses crt ; var a : array[1..100] of integer ; i , n,max1 , max2 : integer ; begin clrscr ; readln(n); for i := 1 to n do begin write('nhap so thu ' , i , ' ' ); readln(a); end; max1:= 0; for i:=1 to n do if a > max1 then max1:=a; max2:=0; for i:=1 to n do if (a > max2) and (a <> max1) then max2:=a; writeln('so lon thu 2 : ' ,max2); readln; end. Mấy bạn tham khảo nha . Last edited: 29 Tháng chín 2021

• 

Reactions: S I M O, tiểu thiên sứ and huyenlinh7ctqp I

ItachiQN

Học sinh mới

Thành viên 29 Tháng chín 2021 2 4 6 20 Quảng Ngãi sửa a thành a hết nha mấy bạn ....................

• 

Reactions: S I M O You must log in or register to reply here. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

• Diễn đàn
• CÁC MÔN HỌC KHÁC
• Tin học - máy tính
• Tin học trong nhà trường
• Tin học cấp III

Top Bottom

• Vui lòng cài đặt tỷ lệ % hiển thị từ 85-90% ở trình duyệt trên máy tính để sử dụng diễn đàn được tốt hơn.