Câu 3. Viết Chương Trình Pascal: A) Nhập Vào Mảng A Có N Phần Tử ...
Có thể bạn quan tâm
Tìm kiếm với hình ảnh
Vui lòng chỉ chọn một câu hỏi
Tìm đáp án- Đăng nhập
- |
- Đăng ký
Hoidap247.com Nhanh chóng, chính xác
Hãy đăng nhập hoặc tạo tài khoản miễn phí!
Đăng nhậpĐăng kýLưu vào
+
Danh mục mới
- hoangxuannguyen2008
- Chưa có nhóm
- Trả lời
2
- Điểm
1105
- Cảm ơn
2
- Tin Học
- Lớp 8
- 60 điểm
- hoangxuannguyen2008 - 16:14:20 23/04/2022
- Hỏi chi tiết
- Báo vi phạm
Hãy luôn nhớ cảm ơn và vote 5* nếu câu trả lời hữu ích nhé!
TRẢ LỜI
hoangxuannguyen2008 rất mong câu trả lời từ bạn. Viết trả lờiTRẢ LỜI
- khoadang09
- Chưa có nhóm
- Trả lời
5548
- Điểm
4854
- Cảm ơn
3434
- khoadang09
- 23/04/2022
a) Nhập vào mảng A có n phần tử. In mảng A đã nhập ra màn hình. Sau đó in ra màn hình các số dương (các số âm) trong mảng.
uses crt; var a : array[1..100] of longint ; n,i : longint ; begin clrscr;write('N='); readln(n);for i := 1 to n do begin write('a[',i,']='); readln(a[i]); end;write('Day vua nhap: '); for i := 1 to n do write(a[i],' '); writeln; write('Cac phan tu duong: '); for i := 1 to n do if a[i] > 0 then write(a[i],' '); writeln; write('Cac phan tu am: '); for i := 1 to n do if a[i] < 0 then write(a[i],' '); writeln; readln end .
b) Nhập vào mảng B có n phần tử. In mảng B đã nhập ra màn hình. Sau đó in ra các số chẵn (các số lẽ) có trong mảng.
uses crt; var b : array[1..100] of longint ; n,i : longint ; begin clrscr;write('N='); readln(n);for i := 1 to n do begin write('b[',i,']='); readln(b[i]); end;write('Day vua nhap: '); for i := 1 to n do write(b[i],' '); writeln; write('Cac phan tu chan: '); for i := 1 to n do if b[i] mod 2=0 then write(b[i],' '); writeln; write('Cac phan tu le: '); for i := 1 to n do if b[i] mod 2=1 then write(b[i],' '); writeln; readln end .
c) Nhập vào mảng C có n phần tử. In mảng C đã nhập ra màn hình. Tính tổng và giá trị trung bình của các số dương (các số âm) trong mảng.
uses crt; var c : array[1..100] of longint ; n,i,sd,sa,dd,da : longint ; begin clrscr;write('N='); readln(n);for i := 1 to n do begin write('c[',i,']='); readln(c[i]); if c[i] > 0 then begin sd := sd + c[i]; dd := dd + 1 ; end; if c[i] < 0 then begin sa := sa + c[i]; da := da + 1; end ; end;writeln('Tong cac so duong: ',sd,', trung binh cac so duong: ',sd/da:3:2);writeln('Tong cac so am: ',sa,', trung binh cac so am; ',sa/da:3:2); readln end .
d) Nhập vào mảng D có n phần tử. In mảng D đã nhập ra màn hình. Tìm số lớn nhất (số nhỏ nhất) của mảng.
uses crt; var d : array[1..100] of longint ; n,i,max,min : longint ; begin clrscr;write('N='); readln(n);for i := 1 to n do begin write('d[',i,']='); readln(d[i]); end;max := d[1];min := d[1]; for i := 2 to n do begin if max < d[i] then max := d[i]; if min > d[i] then min := d[i]; end; writeln('Gia tri lon nhat: ',max,',gia tri nho nhat: ',min); readln end .
Hãy giúp mọi người biết câu trả lời này thế nào?
starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar4 voteGửiHủy
- Cảm ơn 3
- Báo vi phạm
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏiLý do báo cáo vi phạm?
Gửi yêu cầu Hủy
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
- Hướng dẫn sử dụng
- Điều khoản sử dụng
- Nội quy hoidap247
- Góp ý
- Inbox: m.me/hoidap247online
- Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Từ khóa » Cách In Mảng Ra Màn Hình Pascal
-
Lập Trình Pascal đưa Ra Màn Hình Các Phần Tử Của Mảng 1 Chiều Là ...
-
Pascal Nhập Vào 1 Dãy Số Nguyên Và In Ra Mỗi Số Trên 1 Hàng
-
Cách Viết Chương Trình Pascal In Ra Màn Hình - Hoc24
-
Lập Trình Pascal: Mảng - VOER
-
Cách Khai Báo Mảng Trong Pascal
-
Việt Chương Trình Nhập Vào Một Mảng Số Nguyên Và In Mảng đó Ra ...
-
Kho Bài Tập Pascal - Hay - Tài Liệu Text - 123doc
-
Lập Trình Pascal: In Ra Phần Tử Nhỏ Nhất, Lớn Nhất Trong Dãy Số Nhập ...
-
Viết Chương Trình Pascal Sử Dụng Biến Mảng để Nhập Từ Bàn Phím ...
-
Bài Tập C - In Mảng Trong C - VietTuts
-
Câu Lệnh Nào Sau đây đưa Ra Màn Hình Các Phần Tử Của Mảng A ...
-
Viết Chương Trình Pascal Sử Dụng Mảng Hai Chiều, In Ra Màn ...
-
Lệnh Viết Ra Màn Hình Giá Trị Của Phần Tử Thứ I Của Mảng M Là: