sitas net nesusikompiliuoja, kazkur grubi klaida isivelus :)

"zZz" <zZz@zirzilia.lt> wrote in message 
news:g0jmdr$maf$1@trimpas.omnitel.net...
> 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.
>>
>
>
>