- program vector;
- var i,n,S,P:integer;
- v:array [1..20] of integer;
- begin
- write ('Dati un numar...');readln(n);
- for i:=1 to n do begin
- write ('v[',i,']=');readln (V[i]);
- end;
- S:=0;
- P:=1;
- for i:=1 to n do begin
- if (V[i]>0) then
- S:=S+V[i]
- else
- p:=p*V[i]
- end;
- writeln ('p=',p);
- write ('S=',S);readln;
- end.
Nu inteleg care e faza cu indexul... Ce arata indexul?:| Am citit tutorialul despre vectori si matrici... Dar nu inteleg... Ce este cu:
- v:array [1..20] of integer
Welcome to BitCell. Click here to register !

Gata am inteles