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
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
By Everleigh
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.