viết chương trình nhập vào số nguyên dương n<= 100 và dãy a gồm n số nguyên a1 a2 ...An .tính và in lên màn hình tích dãy số đó
2 câu trả lời
program bt;
uses crt;
var a: array[1..100] of integer;
i, n, tich: integer;
begin
clrscr;
write('Nhap n la:'); readln(n);
for i:=1 to n do begin
write('Nhap a[',i,']=');
readln(a[i]);
end;
tich := 1;
for i:= 1 to n do tich:= tich * a[i];
writeln('Tich cac so co trong day la=', tich:3);
readln
end.
Xin câu trả lời hay nhất ạ :3
program mang;
uses crt;
var A:array [1..500] of integer;
n,i,S: integer;
Begin
clrscr;
write('Nhap so phan tu: '); readln(n);
S:=1;
for i:=1 to n do
begin
write('A[',i,']='); readln(A[i]);
S:=S*A[i];
end;
write('Tich day so = ',S);
readln
End.
