👤
MIHAIRUSUDRGO
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.

Vă mulțumim că ați vizitat site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Dacă aveți întrebări sau nevoie de asistență suplimentară, nu ezitați să ne contactați. Pe curând și nu uitați să ne adăugați la favorite!


Go Learns: Alte intrebari