Lập phương trình tính tổng các số nguyên trong tệp . Hiển thị trên màn hình và ghi tổng tính được vào tệp BAI3.OUT Ví dụ BAI3.INT. BAI3.OUT 2 5 8 6 9. Tong 30
2 câu trả lời
uses crt;
var a: array[1..100] of integer;
n,i,s: word;
begin
clrscr;
write ('nhap so phan tu: '); readln (n);
for i:=1 to n do
begin
write ('nhap so thu ',i,': '); readln (a[i]);
s:=s+a[i];
end;
writeln ('tong la: ',s);
readln;
end.
uses crt;
var a: array[1..100] of integer;
n,i,s: word;
f:text;
begin
clrscr;
Assign(f,'tep.inp'); Reset(f);
Readln(f,n);
for i:=1 to n do readln (f,a[i]);
CLose(f);
Assign(f,'tep.out'); Rewrite(f);
For i:=1 to n do S:=S+a[i];
writeln (f,'tong la: ',s);
CLose(F);
End.
