Viết chương trình nhập dãy số in các số chẵn ra màn hình, tính tổng của các số chẵn có trong danh sách

0 bình luận về “Viết chương trình nhập dãy số in các số chẵn ra màn hình, tính tổng của các số chẵn có trong danh sách”

1. program ct;

   uses crt;

   var A:array[1..1000] of integer;

         n,i:integer;

         S:longint;

   begin clrscr;

      writeln(‘Nhap so n: ‘); readln(n);

      for i:=1 to n do

        begin
           writeln(‘Nhap phan tu thu ‘,i,’: ‘); readln(A[i]);

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

      for i:=1 to n do if A[i] mod 2=0 then write(A[i]:3);
      writeln(‘Tong cac so chan la: ‘,S);
   readln;

   end.

   Học tốt!

   Trả lời

2. [B][COLOR=”Blue”]
   Uses crt;
   var a: array [1..1000] of integer;
   i, n, tong: integer;
   begin clrscr;
   write (‘Nhap so luong phan tu: ‘); readln (n);
   for i:= 1 to n do begin write (‘Nhap phan tu thu ‘,i,’: ‘); readln (a[i]);
   if a[i] mod 2 = 0 then tong:=tong+a[i];
   end;
   write (‘Cac so chan trong day: ‘);
   for i:= 1 to n do
      if a[i] mod 2 = 0 then write (a[i],’ ‘);
   writeln; write (‘Tong cac so chan la ‘,tong);
   readln
   end.

   Cho mình vote 5 sao và câu trl hay nhất nhé, Thanks

   Trả lời