VCT nhập vào một dãy gồm N số nguyên. Tính tổng các số chẵn.

0 bình luận về “VCT nhập vào một dãy gồm N số nguyên. Tính tổng các số chẵn.”

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

   Vote mik nha :3

   Bình luận

2. Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,s: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
                   If A[i] mod 2 = 0 then s:=s+A[i];
           End;
           Write(‘S = ‘,s);
           Readln
   End.

   Bình luận