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

0 bình luận về “Viết chương trình nhập số vào N số nguyên và in ra màn hình tổng 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

   $\text{#Mong câu trả lời hay nhất ạ}$

   $\text{#Chúc bạn học tốt nha}$

   $\text{@Vân}$

   Bình luận

2. $#Mod247$

   Trả lời:

   Program kthkII;.

   uses crt;.

   var i, n, s, N : integer;.

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

   begin. write(‘Nhap so nguyen N: ‘);

   readln(N);.

   write(‘Nhap do dai cua day so thu ‘,d,’ cua day: ‘);readln(e);

   writeln(‘tong cac so chan trong day so la: ‘,t);
   readln;
   end. 

   Bình luận