SHARE
TWEET

Untitled

a guest Sep 14th, 2017 80 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program cetvrta;
  2. var
  3. n,i,t,x:integer;
  4. a:array[1..100]of integer;
  5. begin
  6. writeln('Vnesi go n');
  7. readln(N);
  8. for i:=1 to n do
  9. begin
  10.      readln(a[i]);
  11.      if (a[i]<0) then t:=t+a[i] else x:=x+a[i];
  12. end;
  13. writeln('Zbir na parni clenovi: ',x);
  14. writeln('Zbir na negativni clenovi: ',t);
  15. readln;
  16. end.
RAW Paste Data
Top