Question

ajutatima va rog gasiti greseala si corectatio va rog din suflet dau coroana 100%
var v:set[1..10] of integer;
i,n,s,p:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('v[',i,']=');
readln(v[i]);
end;
s:=1; p:=0;
while i:=1 to n do
if v[i] mod2=0 then
s:=p+v[i]
else p:=p*v[i];
writeln('suma elementelor pare este:',s);
writeln('produsul elementelor inpare este:',v);
readln;
end.

Answer 1

 Program m;type vector= array[1..10]of integer;var v:vector;i,n,s,p:integer;beginwrite('n=');readln(n);for i:=1 to n dobeginwrite('v[',i,']=');readln(v[i]);end;s:=0; p:=1;for i:=1 to n doif v[i] mod 2=0 thens:=s+v[i]else p:=p*v[i];writeln('suma elementelor pare este:',s);writeln('produsul elementelor inpare este:',p);readln;end.