var
  x[1..100], n, i :longint;
begin
  n:=0;
  writeln('Seka:');
  repeat
    n:=n+1;
    read(x[n]);
    x[n]:=(-1)*x[n];
  until x[n]=0;
  writeln('Pradine seka:');
  for i=1 to n-1 write((-1)*x[i],' ');
  writeln('Gauta seka:');
  for i=1 to n-1 write(x[i],' ');
end.

"Jomajo" <no@no.no> wrote in message 
news:g0cs69$uvv$1@trimpas.omnitel.net...
> reiktu isspresti tokias uzduotis:
>
> 1. Parasykite algoritma klaviatura renkamos skaiciu sekos nariu, didesniu 
> uz n, sandaugai suskaiciuoti. Sekos paskutinysis narys-nulis.
>
> 2. Sveikuju skaiciu seka surenkama klaviatura. Paskutinysis sekos narys - 
> nulis. Parasykite algoritma sekos nariu zenklams pakeisti priesingais, 
> pradinei bei naujai gautai sekoms spausdinti.
>