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.”

1. Nếu sai thì mong bạn thông cảm
   

   Trả lời

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.

   Trả lời