giúp mình tìm lỗi sai, chạy chương trình được nhưng kiểm tra kết quả không đúng. DE BAI: Viết chương trình nhập vào mảng 1 chiều a với N phần tử < 20. Đếm số phần tử chia hết cho 5 và ghi vào tệp T.TXT Program demsophantu; Uses crt; var N,i,dem,x:integer; f:text; a:array[1..100] of integer; Begin Clrscr; write('Nhap so phan tu N = '); readln(N); for i:=1 to N do begin writeln('Phan tu thu ',i,' : '); readln(a[i]); end; assign(f,'E:\11A9\T.TXT'); rewrite(f); dem:=0; For i:=1 to N do write(f,a[i],' '); reset(f); while not eof(f) do begin readln(f,x); If x mod 5 = 0 then dem:=dem+1; end; writeln('So phan tu chia het cho 5 la:', dem); close(f); readln End.
2 câu trả lời
Program demsophantu;
Uses crt;
var N,i,dem,x:integer;
f:text; a:array[1..100] of integer;
Begin
Clrscr;
write('Nhap so phan tu N = '); readln(N);
for i:=1 to N do
begin
writeln('Phan tu thu ',i,' : '); readln(a[i]);
end;
assign(f,'E:\11A9\T.TXT'); rewrite(f);
dem:=0;
for i:=1 to n do
if A[i] mod 5=0 then dem:=dem+1;
write(f,'So phan tu chia het cho 5 la: ',dem);
close(f);
end.
writeln('So phan tu chia het cho 5 la:', dem);
Sửa thành writeln(f, 'So phan tu chia het cho 5 la:', dem);
