Viết chương trình tính tổng các cặp số nguyên được lưu trữ trong tệp input.txt (các số cách nhau bởi dấu cách và được viết trên cùng một dòng). Tính và đưa kết quả ra màn hình.
Ví dụ minh họa:
Trong tệp input.txt chứa dãy các số nguyên 2 4 7 13 25 6 18 -1
⇒Tổng các cặp số liên tiếp xuất ra màn hình là 6 20 31 17
var f:text;
a,b:array[1..100] of integer;
i,n,j,p,v:integer;
const
fi=’INPUT.txt’;
begin
assign(f,fi); reset(F);
n:=0;
while not eof(f) do
begin
n:=n+1;
read(f,a[n]);
end;
v:=0;
p:=0;
while i<=n-2 do
begin
i:=i+1;
v:=a[i]+a[i+1];
p:=p+1;
b[p]:=v;
i:=i+1;
v:=0;
end;
for i:=1 to p do
write(b[i],’ ‘);
close(f);
end.
Const Fi=’Input.txt’;
Var f: text;
A: array[1..1000] of longint;
n,i: longint;
Begin
Assign(f,Fi); Reset(f);
n:=0;
While not eof(f) do
Begin
inc(n);
Read(f,A[n]);
End;
For i:=1 to n do
If i mod 2 = 1 then
Write(A[i]+A[i+1],’ ‘);
Close(f);
Readln
End.