Câu 3. Viết Chương Trình Pascal: A) Nhập Vào Mảng A Có N Phần Tử ...

logologoTì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
    • icon_userĐăng nhập
    • |
    • Đăng ký
    icon_menu
avataricon

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ý
  • add
  • Đặt câu hỏiiconadd
  • logo

    loading

    +

    Lưu vào

    • +

      Danh mục mới

    Lưuavataravatar
    • hoangxuannguyen2008logoRank
    • 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
    • reportBá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

    avataravatar
    • khoadang09logoRank
    • 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?

    avatar

    starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar4 voteGửiHủy
    • hertCảm ơn 3
    • reportBáo vi phạm
    Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK, SBT LỚP 8 - TẠI ĐÂY

    Bạn muốn hỏi điều gì?

    questionĐặt câu hỏi

    Tham 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ì?

    iconĐặt câu hỏi

    Lý do báo cáo vi phạm?

    Gửi yêu cầu Hủy

    logo

    Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát

    • social
    • social
    • social

    Tải ứng dụng

    google playapp store
    • Hướng dẫn sử dụng
    • Điều khoản sử dụng
    • Nội quy hoidap247
    • Góp ý
    • Tin tức
    • mailInbox: m.me/hoidap247online
    • placeTrụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
    Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.

    Từ khóa » Cách In Mảng Ra Màn Hình Pascal