nepatarciau tokiais kiekias imt i masyvus, nes kaip ytariu sistema ruosi ne sau vienam, tad padaugink sitas apkrovas is n.
tau vienam gal ir paims, ziurint kokio iklgio tie sakiniai, bet nereiskia, kad paims, kai masyvas bus kuriamas keliskart per sekunde.
rekomenduoju pasirasyt maza skriptuka ir jo pagalba viska susikelt i db, kad nereiktu rankiniu budu to daryt ;)
Declare Batai Buvo(2); Begin Dingo(1); Batai.status := 'nerandu'; If Tureciau(batai) = 2 Then Keliauti_pas('vaikai'); Elsif Batai.status = 'nerandu' Then Niekur_eiti_negaliu; End If; While Rankytes = Iesko(batai) Loop Akytes_ji_pamato; End Loop; Apsimauti(batai, 2); Keliauti_pas('vaikai'); End;