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 := ilsejos