amrozija

Sveiki, gal galit padėti surašyti kintamuosius arba gal turite padarę 2012m informatikos vbe 1 užduoty? Krepšinis

program Krepsinis;

var

procedure laikas; // Procedūra laikui skaičiuoti.

var i, z : integer;

begin

for i := 1 to n do

with info do

begin

zaide := 0; ilsejosi := 0;

for z := 1 to t do

if laikas[z] > 0 then

zaide := zaide + laikas[z]

else

ilsejosi := ilsejosi + Abs(laikas[z]);

end;

end;

procedure rikiuoti // Procedūra rikiuoti žaidėjams pagal eilę.

var F : text;

i : integer;

begin

assign(F, 'U1Rez.txt');

Rewrite(F);

for i := 1 to i do

procedure startinispenketas; // startionio penkete radimas.

var i, l : integer

begin

for i := 1 to n do

with Info do

if laikas > 0 then

begin

inc(l);

Startinis := k;

end;

Rikiuoti(Startinis);

end;

procedure Rasyti(); // Rezultatų išrašymo procedūra.

var F : text;

i : integer;

begin