Cho tệp DULIEU.INP chứa dãy các số nguyên a1,a2.....an, viết chương trình tính tích các dãy số nguyên đó, sau đó đưa kết quả vào tệp DULIEU.OUT
2 câu trả lời
uses crt;
var f,d:text; n,i,tich:longint;
a:array[1..1000000]of longint;
begin
clrscr;
assign(d,'DULIEU.INP');reset(d);
assign(f,'DULIEU.OUT');rewrite(f);
readln(d,n);
for i:=1 to n do read(d,a[i]);
tich:=1;
for i:=1 to n do tich:=tich*a[i];
writeln(f,tich);
close(d);
close(f);
end.
program tinh_tich;
uses crt;
var f,g:text;
A:array[1..1000] of integer;
n,i:integer;
tich:int64;
begin
Assign(f,'DULIEU.INP'); reset(f);
Assign(g,'DULIEU.OUT'); rewrite(g);
readln(f,n);
tich:=1;
for i:=1 to n do
begin
read(f,A[i]);
tich:=tich*A[i];
end;
writeln(g,tich);
close(f); close(g);
end.
