Question

se considera un tablou unuidimension T[1..n] de numere intregi unde n<=20. sa se scrie un program care calculeaza produsul tuturor elementelor acestui tablou imi trebueste in turbo pascal va rog urgent de tot dac nu prezint pe mine ramin cu restanta va rog

Answer 1

program produs;

const nmax=20;

var  t:array[1..nmax] of integer;

   n, i, p: integer;

begin

 write('n='); read(n);

 p:=1;

 writeln('introdu ',n,' numere intregi:');

 for i:=1 to n do

   begin

     write('t[',i,']='); read(t[i]);

     p:=p*t[i];

   end;

 writeln('produsul lor = ',p);

end.