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

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

1. uses crt;
   var a:array[1..100]of integer;
   i,n,t:integer;
   begin
   clrscr;
   write(‘n=’); readln(n);
   for i:=1 to n do
   begin
   write(‘a[‘,i,’]=’); readln(a[i]);
   end;
   {——————————————————}
   t:=0;
   for i:=1 to n do
   if a[i] mod 2=0 then t:=t+a[i];
   writeln(‘tong cac so chan trong day so la: ‘,t);
   readln;
   end.

   Bình luận

2. Program BTH;
   Uses crt;
   var a,b,d,e:longint;
   procedure BTH;
   Begin
   for d:=1 to a do
   Begin
   write(‘Nhap so thu ‘,d,’ cua day: ‘);readln(e);
   If e mod 2=0 then
   b:=b+e;
   end;
   end;
   Begin
   clrscr;
   Write(‘Nhap so phan tu co trong day la: ‘);readln(a);
   b:=0;
   BTH;
   Writeln(‘Tong so chan co trong day la: ‘,b);
   readln;
   End.

   Bình luận