uses crt; var f:text; i,s,n:longint; a:array[1..100000000]of longint; begin clrscr; write('Nhap n: ');readln(n); for i:=1 to n do begin write('Nhap so thu ',i,': ');readln(a[i]); end; assign(f,'KQ.txt');rewrite(f); for i:=1 to n do if a[i] mod 5=0 then begin write(f,a[i],' '); inc(s,a[i]); end; writeln(f); writeln(f,'Tong: ',s); close(f); readln end.
