Help me everybody !viết chương trình thực hiện lặp 10 phần tử có giá trị nguyên, cho mảng A từ bàn phím và tính tổng các phần tử chẳng có trong mảng

0 bình luận về “Help me everybody !viết chương trình thực hiện lặp 10 phần tử có giá trị nguyên, cho mảng A từ bàn phím và tính tổng các phần tử chẳng có trong mảng”

1. program ct;

   uses crt;

   var i,n,S:integer;

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

   begin

   clrscr;

      for i:=1 to 10 do

   begin

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

   end;

     S:=0;

      for i:=1 to 10 do

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

       writeln(‘tong cac phan tu chan la:’,S);

   readln

   end.

   Bình luận

2. uses crt;
   var i,res:longint;
       a:array[1..10]of longint;
   begin
   clrscr;
       for i:=1 to 10 do
           begin
               readln(a[i]); 
               if a[i] mod 2=0 then inc(res,a[i]);
           end;
       write(res);
   readln;
   end.

   Bình luận