Question

Giả sử có tệp SONGUYEN.TXT chứa các số nguyên bất kì (giữa các số cách nhau một dấu cách).Viết chương trình đọc dữ liệu từ tệp trên, tính tổng các số lẻ và ghi kết quả vào tệp SOLE.TXT( các tệp được lưu ở ổ đĩa C)

Answer 1

const fi='songuyen.txt';
fo='sole.txt';
var f1,f2:text;
n,i,t:integer;
a:array[1..100]of integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
inc(n);
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=1 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.