Viết chương trình nhập dãy số nguyên và tính tổng các số lẻ trong dãy số đó . Cho mk cái sườn nhé .c ơn

0 bình luận về “Viết chương trình nhập dãy số nguyên và tính tổng các số lẻ trong dãy số đó . Cho mk cái sườn nhé .c ơn”

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

   tong,i,n:integer;
     Begin
       Clrscr;
       readln(n); tong:=0;

       for i:=1 to n do
              begin
       readln(a[i]);
       if a[i] mod 2<>0 then
       tong:=tong+a[i];
       end;
       writeln(‘tong cac so le la:’,tong);
       readln;
       end.

   Bình luận

2. program ct;

   uses crt;

   var n,i,s:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]:=’);readln(A[i]);

   end;

   s:=0;

   for i:=1 to n do

   if A[i] mod 2=1 then s:=s+A[i];

   write(‘tong cac so le la:’,s);

   readln

   end.

   Bình luận