Tin học Đọ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 13/07/2021 By Brielle Đọ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ảng,DULIEU.OUT ghi ra kết quả của tổng
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. Trả lời