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 các số vừa nhập và tích các số chẵn

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 các số vừa nhập và tích các số chẵn”

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

   End.

   Bình luận