Viết Chương trình nhập dãy số A gồm n số ( n<= 100). Tính tổng và đưa ra màn hình tổng các số lẻ trong dãy A

0 bình luận về “Viết Chương trình nhập dãy số A gồm n số ( n<= 100). Tính tổng và đưa ra màn hình tổng các số lẻ trong dãy A”

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

         N, i: byte;

         S: integer;

   Begin

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

           S:=0;

           For i:=1 to n do 

                 Begin

                       Write(‘nhap a[‘,i,’] = ‘);

                       readln(a[i]);

                      If a[i] mod i <> 0 then s:=s+a[i];

                 End;

           Write(‘tong so le: ‘, s);

           Readln

   End.

   Bình luận