Cho dãy a gồm n số nguyên a1,a2,…an. Tính tổng các số lẻ trong dãy

0 bình luận về “Cho dãy a gồm n số nguyên a1,a2,…an. Tính tổng các số lẻ trong dãy”

1. Program tinh_tong;

   Uses crt;

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

          S,i,n: integer;

   Begin 

   Write (‘nhap n=’);

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu’,i,’=’);

   Readln (A[i]);

   end;

   S:=0;

   For i:=1 to n do 

   If A[i] mod 2= 1 then 

   S:=S+ A[i];

   Writeln (‘tong cac so le trong day la:’,S);

   Readln 

   End.

   Bình luận

2. Program Hotboy ;

   Uses crt;

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

   S: longint ;

   i,n : byte;

   Begin

   Clrscr ;

   S:=0;

   Writeln(‘nhap so phan tu’); 

   Readln(n);

   For i:=1 to n do 

   Begin

   Write(‘A[‘,i,’]’); 

   Readln(A[i]);

   End;

   For i:=1 to n do

   If (A[i] mod 2 <>0 )then S:=S+A[i];

   Writeln(‘Tong cac so le la ‘,S);

   Readln

   End.

   Bình luận