Question

Scrieți un program care numără câte numere pozitive conține un vector (Pascal).

Answer 1

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.