Viết chương trình nhập dãy n số và in ra tổng các số lẻ trong dãy số vừa nhập.

Bởi

Viết chương trình nhập dãy n số và in ra tổng các số lẻ trong dãy số vừa nhập.

0 bình luận về “Viết chương trình nhập dãy n số và in ra tổng các số lẻ trong dãy số vừa nhập.”

  2. . Hướng dẫn:
    Thực hiện cộng dồn các số lẻ bằng lệnh:
    if M[i] mod 2 =1 then tong:=tong+M[i]
     Mã chương trình:
    Program Mang_Tong_Le;
    uses crt;
    var i,n:byte;
     M:array[1..100] of integer;
     tong:longint;
    begin
     write(‘Nhap so phan tu cua day: ‘);readln(n);
     for i:=1 to n do
     begin
     write(‘M[‘,i,’]’); readln(M[i]);
     end;
     tong:=0;
     for i:=1 to n do if M[i] mod 2 =1 then
     tong:=tong+M[i];
     write(‘Tong cac so le trong day la: ‘,tong);
     readln
    end.

    Bình luận

Viết một bình luận