Viết chương trình tính tổng các phần tử chẵn của mảng A gồm n phần tử với n nguyên dương nhập từ bàn phím và n<=300 Giúp mình với mình đang kiểm tra ạ

0 bình luận về “Viết chương trình tính tổng các phần tử chẵn của mảng A gồm n phần tử với n nguyên dương nhập từ bàn phím và n<=300 Giúp mình với mình đang kiểm tra ạ”

1. Uses crt;

   Var i, n, s: integer;

         a:array[1..300] of integer;

   Begin

      Clrscr;

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

      For i:=1 to n do

        Begin

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

             Readln(a[i]);

        End;

      s:=0;

      For i:=1 ton do if a[i] mod 2 = 0 then inc(s,a[i]);

      Writeln(‘Tong = ‘,s);

   Readln

   End.

   Bình luận

2. program ct;

   uses crt;

   var i,n,S:integer;

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

   begin

   clrscr;

   write(‘nhap n=’);readln(n);

   for i:=1 to n do

   begin

   write(‘nhap mang A[‘,i,’]=’);readln(A[i]);

   end;

   S:=0;

   for i:=1 to n do 

   if A[i] mod 2=0 then S:=S+A[i];

   writeln(‘tong cac so chan la=’,S);

   readln

   end.

   Bình luận