Răspuns :
Răspuns:
program suma_produs;
var a:array[1..100] of integer;
i, n, suma, produs:integer;
{Definim procedura s_p care primeste ca parametru un element al vectorului si calculeaza suma si produsul}
procedure s_p(x:integer; var s, p:integer);
begin
s:=s+x;
p:=p*x;
end;
{Intram in programul principal}
begin
write('Dati numarul de elemente al vectorului : ');
readln(n);
{Citim elementele vectorului}
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
{Initializam suma si produsul}
suma:=0;
produs:=1;
{Parcurgem vectorul si, daca elementul este pozitiv
apelam procedura s_p, care actualizeaza suma si produsul}
for i:=1 to n do
if a[i] > 0 then
s_p(a[i], suma, produs);
{Afisam rezultatele}
writeln('Suma elementelor pozitive este : ',suma);
writeln('Produsul elementelor pozitive este : ',produs);
readln;
end.
Explicație:
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile prezentate v-au fost utile. Dacă aveți întrebări suplimentare sau nevoie de ajutor, vă rugăm să ne contactați cu încredere. Așteptăm cu drag să reveniți și nu uitați să ne salvați în lista dumneavoastră de favorite!