Viết chương trình tính tổng của 20 số nguyên có trong tệp Tong.inp . Đưa kết quả tìm được ra Tong.out.
2 câu trả lời
uses crt;
var d:text; i,t:longint; a:array[1..1000000]of longint;
begin
clrscr;
assign(d,'input.pas');reset(d);
for i:=1 to 20 do begin read(d,a[i]); inc(t,a[i]); end;
close(d);
assign(d,'output.pas');rewrite(d);
writeln(d,t);
close(d);
readln
end.
uses crt;
var f,g:text;
A:array[1..20] of integer;
i,t:integer;
begin
Assign(f,'Tong.inp');
Assign(g,'Tong.out'); rewrite(g);
{$I-} reset(f); {$I+}
if IOresult<>0 then
begin
rewrite(f);
reset(f);
end;
t:=0;
for i:=1 to 20 do
begin
read(f,A[i]);
t:=t+A[i];
end;
write(g,t);
close(f); close(g);
end.
