Viết chương trình tính tổng các số chẵn của dãy n số nhập vào từ bàn phím, n thuộc kiểu nguyên

0 bình luận về “Viết chương trình tính tổng các số chẵn của dãy n số nhập vào từ bàn phím, n thuộc kiểu nguyên”

1. Program Hotboy;

   Uses crt;

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

   I,S:longint;

   Begin

   Clrscr;

   S:=0;

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

   For i:=1 to n do

   Write(‘A[‘,i,’]’); Readln(A[i]);

   If ( A[i] mod 2=0) then S:=S+A[i];

   Write(‘tong can tim la’,S);

   Readln

   End.

   Bình luận

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

   Bình luận