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×

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ý

Đặt câu hỏi

logo

Lưu vào

+
Danh mục mới

Lưu

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

Câu 3. Viết chương trình Pascal: 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. 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. 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. 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.

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ời

TRẢ LỜI

khoadang09
Kate Lee

Trả lời
5599
Điểm
4859
Cảm ơn
3498

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?

avatar

starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar4 voteGửiHủy