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

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.

0 bình luận về “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”

  1. 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.

    Bình luận

Viết một bình luận