Question

tệp input.txt trên đĩa d chứa 1 dãy số nguyên nằm trên cùng một dòng ( mỗi số cách nhau bởi dấu cach) viết chương trình tìm số lượng các số âm có trong dãy. ghi kết quả vào tệp output.txt trên ổ đĩa d

Answer 1

Program HOC24;

const fi='inp.txt';

fo='output.txt';

var f: text;

a: array[1..32000] of integer;

i,n,d: integer;

procedure ip;

begin

assign(f,fi);

reset(f);

n:=0;

while not(eof(f)) do

begin

n:=n+1;

read(f,a[n]);

end;

close(f);

end;

procedure out;

begin

assign(f,fo);

rewrite(f);

d:=0;

for i:=1 to n do if a[i]<0 then d:=d+1;;

write(f,d);

close(f);

end;

begin

ip;

out;

end.