cách sử dụng ngôn ngữ lập trình pascal viết chương trình tính tổng các số dương..Dữ liệu vào là 1 dãy số nguyên ngăn cách ít nhất 1 dấu cách ở trong tệp SO.inp.Kết quả đưa vào tệp KQ.out Tự luận
uses crt; var f:text; a,s:longint; begin clrscr; assign(f,'SO.inp');reset(f); while not(eoln(f)) do begin read(f,a); if a>0 then s:=s+a; end; close(f); assign(f,'KQ.out');rewrite(f); writeln(f,s); close(f); end.