1. Tính Tổng Các Số âm Và Tổng Các Số Dương Của Dãy. 2. Tính Tích ...

Trang chủ » Nguyên âm Trong Pascal » 1. Tính Tổng Các Số âm Và Tổng Các Số Dương Của Dãy. 2. Tính Tích ...

Có thể bạn quan tâm

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
    • minhquang357logoRank
    • Chưa có nhóm
    • Trả lời

      95

    • Điểm

      964

    • Cảm ơn

      65

    • Tin Học
    • Lớp 11
    • 10 điểm
    • minhquang357 - 22:42:45 12/02/2020
    1. Tính tổng các số âm và tổng các số dương của dãy. 2. Tính tích các số chẵn của dãy gồm 10 số nguyên. (Dùng kiểu 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

    minhquang357 rất mong câu trả lời từ bạn. Viết trả lời

    TRẢ LỜI

    avataravatar
    • NinhNinh1603logoRank
    • Chưa có nhóm
    • Trả lời

      777

    • Điểm

      8785

    • Cảm ơn

      338

    • NinhNinh1603
      • Đây là một chuyên gia không còn hoạt động
    • 08/05/2023

    Đây là câu trả lời đã được xác thực

    Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.

    icon

    Câu 1:

    Program Tongamduong;

    Uses crt;

    Var A: array[1..100] of integer;

    n,i,ta,td: longint;

    Begin

    Clrscr;

    ta:=0;td:=0;

    Write('Nhap so so hang trong day'); Readln(n);

    For i:=1 to n do

    Begin

    Write('A[',i,'] = ');

    Readln(A[i]);

    If A[i]>0 then td:=td+A[i];

    If A[i]<0 then ta:=ta+A[i];

    End;

    Writeln('Tong duong trong day la ',td);

    Write('Tong am trong day la: ',ta);

    Readln

    End.

    Câu 2:

    Program Tichchan;

    Uses crt;

    Var A: array[1..10] of integer;t,i:longint;

    Begin Clrscr;

    t:=1;

    For i:=1 to 10 do

    Begin

    Write('A[',i,'] = ');

    Readln(A[i]);

    If A[i] mod 2 = 0 then t:=t*A[i];

    End;

    Write('Tich 10 so nguyen chan la: ',t);

    Readln

    End.

    imagerotateimageimage

    Hãy giúp mọi người biết câu trả lời này thế nào?

    starstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstarstar5starstarstarstarstar1 voteGửiHủy
    • hertCảm ơn 1
    • avataravatar
      • dohuudong190585logoRank
      • Chưa có nhóm
      • Trả lời

        153

      • Điểm

        1945

      • Cảm ơn

        102

      tks

    Đăng nhập để hỏi chi tiếtXEM LỜI GIẢI SGK TIN 11 - TẠI ĐÂY

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

    questionĐặt câu hỏi

    Tham Gia Group Dành Cho Lớp 11 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 » Nguyên âm Trong Pascal