nuo kada jis reikalingas? :)

"zars" <mazafak@kaoroce.bb> wrote in message 
news:Xns9AA38617640C4e2e4trlk@194.176.32.141...
> jomajo, nera net programos pavadinimo ir begin
>
> "Jomajo" <no@no.no> wrote in news:g0kg99$ou0$1@trimpas.omnitel.net:
>
>> 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.
>>>>
>>>
>>>
>>>
>>
>>
>