👤
Mihairusudr
a fost răspuns

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

Răspuns :

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.

Alte intrebari