Viết chương trình nhập n số nguyên từ bàn phím tính và in ra màn hình tổng tích của các số vừa nhập

0 bình luận về “Viết chương trình nhập n số nguyên từ bàn phím tính và in ra màn hình tổng tích của các số vừa nhập”

1. var t, s: longint;

         i, n: byte;

         a: integer;

   Begin

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

       S:=0; t:=1;

       For i:=1 to n do

        Begin

           Write(‘a[‘, i, ‘] = ‘); readln(a);

           If (a mod 2 = 0) then t:=t*a;

           S:=s+a;

        End;

      Writeln(‘tong: ‘, s);

      Write(‘tich: ‘, t);

      Readln

   ( CẤM BÁO CÁO NHÁ BN )

   Bình luận