Nhập một dãy A gồm N số nguyên từ tệp DULIEU.INP (N<=120).Hãy tính tổng các số chia hết cho 3 trong dãy và cho kết qua ra DULIEU.OUT

0 bình luận về “Nhập một dãy A gồm N số nguyên từ tệp DULIEU.INP (N<=120).Hãy tính tổng các số chia hết cho 3 trong dãy và cho kết qua ra DULIEU.OUT”

1. uses crt;
   var f,g:text;
          a:array[1..120] of longint;
          n,i,s:integer;
   begin
          clrscr;
          assign(f,’DULIEU.INP’); reset(f);
          assign(g,’DULIEU.OUT’); rewrite(g);
          readln(f,n);
          s:=0;
          for i:=1 to n do 
                 begin
                        readln(f,a[i]);
                        if a[i] mod 3=0 then s:=s+a[i];
                 end;
          write(g,s);
          close(f);
          close(g);
          readln;
   end.

   Bình luận