Question

các bước làm: yêu cầu người dùng nhập một số nguyên dương N(Nếu nhập sai yêu cầu nhập lại).Sau đó nhập N số. Tính tích N số đó 

Answer 1

uses crt;

var a:array[1..100]of integer;

i,n:integer;

s:real;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

s:=1;

for i:=1 to n do 

  s:=s*a[i];

writeln(s:0:0);

readln;

end.