Răspuns:
Program pVectori;
var a:array[1..100] of integer; s,x,z:integer;
begin
Writeln('Cate valori are vectorul respectiv?');Readln(z);
Writeln('Sa se introduce valorile : ');
For x:=1 to z do begin Readln(a[z]); If a[z]>0 then s:=s+1; end;
Writeln('S-au introdus ',s,' numere pozitive');
end.
Explicație: -
Nu se da nr de valori ale vectorului, daca nu am indeplinit cerinta imi scrii si o sa incerc sa refac programul.
