viết chương trình đọc dữ liệu từ tệp songuyen.txt và đưa ra màn hình tổng các số âm trong tệp

Question

viết chương trình đọc dữ liệu từ tệp songuyen.txt  và đưa ra màn hình tổng các số âm trong tệp

bichlien · Answer

program tong_am;

uses crt;

var f:text;

n,t:integer;

begin

clrscr;

Assign(f,’songuyen.txt’); reset(f);

t:=0;

while not eof(f) do

begin

read(f,n);

if n<0 then t:=t+n;

end;

write(‘Tong cac so am la: ‘,t);

close(f); readln;

end.

0 bình luận về “viết chương trình đọc dữ liệu từ tệp songuyen.txt và đưa ra màn hình tổng các số âm trong tệp”