giúp em với ạ viết thuật toán :tính tổng các số lẻ trong dãy N a1,a2,–..an

0 bình luận về “giúp em với ạ viết thuật toán :tính tổng các số lẻ trong dãy N a1,a2,–..an”

1. program az;

   uses Crt;

   var i,n,a : integer;

             S : longint;

   begin

   clrscr;

   S := 0;

   Write(‘Nhap n = ‘); readln(n);

   For i:=1 to n do 

   begin

   Write(‘Nhap phan tu thu ‘,i,’ la : ‘); readln(a);

   If (a mod 2 <> 0) then S:=S + a;

   end;

   Write(‘Tong cac so le la : ‘,S);

   readln

   end.

   Bình luận