Đọc ghi file bài sau: nhập vào một mảng n số nguyên,tính tổng các số chia hết cho 3 trong mảng. DULIEU.INP gồm n số nguyên và các phần tử có trong mản

0 bình luận về “Đọc ghi file bài sau: nhập vào một mảng n số nguyên,tính tổng các số chia hết cho 3 trong mảng. DULIEU.INP gồm n số nguyên và các phần tử có trong mản”

1. uses crt;
   var f,g:text;
          a:array[1..1000000] 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