viết chương trình nhập n dãy 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 n dãy số và in ra tổng các số lẻ trong dãy số vừa nhập”

1. Program BTT;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘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: ‘,s);
           Readln
   End.

   Bình luận

2. Program Tinhtongsole;

   Uses crt;

   Var     i,n,tong:integer;

            M:array[1..100] of integer;
       
   Begin

          write(‘Nhap n’);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 la: ‘,tong);

       readln

   end.

   Bình luận