Neprisimenu tiek pascal, kad be klaidų rašyčiau :D

"Jomajo" <no@no.no> wrote in message 
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.
>>>
>>
>>
>>
>
>