Tin Học - Pascal - đổi Chỗ Các Phần Tử Của Dãy - 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ọcPascal - đổi chỗ các phần tử của dãy

• Thread starter Silver flame
• Ngày gửi 24 Tháng bảy 2021
• Replies 2
• Views 1,349

• 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.

Silver flame

Học sinh chăm học

Thành viên 10 Tháng ba 2020 59 70 71 20 Bắc Kạn Trường THCS [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.

Cho số tự nhiên n (n<=100) và dãy số nguyên a1,a2,......,an (bao gồm cả số nguyên âm lẫn số nguyên dương). Sử dụng ngôn ngữ lập trinh Pascal, hãy đổi chỗ các phần tử của dãy sao cho các phần tử dương nằm ở đầu dãy, phần tử âm nằm ở cuối dãy và in ra dãy sau khi đã sắp xếp.

• 

Reactions: [email protected] and Duy Quang Vũ 2007

Duy Quang Vũ 2007

Học sinh chăm học

Thành viên 26 Tháng tám 2020 241 1,026 136 18 Quảng Ninh THCS Chu Văn An

Silver flame said: Cho số tự nhiên n (n<=100) và dãy số nguyên a1,a2,......,an (bao gồm cả số nguyên âm lẫn số nguyên dương). Sử dụng ngôn ngữ lập trinh Pascal, hãy đổi chỗ các phần tử của dãy sao cho các phần tử dương nằm ở đầu dãy, phần tử âm nằm ở cuối dãy và in ra dãy sau khi đã sắp xếp. Bấm để xem đầy đủ nội dung ...

Tham khảo ạ.

• 

Reactions: [email protected], Silver flame and Ánh 01

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

Silver flame said: Cho số tự nhiên n (n<=100) và dãy số nguyên a1,a2,......,an (bao gồm cả số nguyên âm lẫn số nguyên dương). Sử dụng ngôn ngữ lập trinh Pascal, hãy đổi chỗ các phần tử của dãy sao cho các phần tử dương nằm ở đầu dãy, phần tử âm nằm ở cuối dãy và in ra dãy sau khi đã sắp xếp. Bấm để xem đầy đủ nội dung ...

Bài này mình sắp xếp trên một mảng luôn. Bạn có thể tham khảo nhé. Mã: Var A:array[1..100] of integer; i,d,tg,n:Integer; Begin Readln(n); For i:=1 to n do Begin write('A[',i,']='); Readln(a[i]);end; d:=1; For i:=1 to n do If a[i] >0 then Begin tg:=a[i]; a[i]:=a[d];a[d]:=tg;d:=d+1;end; Writeln('Cac phan tu sau khi sap xep la:'); For i:=1 to n do write(a[i],' '); readln; End.

• 

Reactions: Silver flame and Duy Quang Vũ 2007 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.