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 că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.