Padėkit! 2012 informatikos VBE

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

Turiu visas užduotis iš IT VBE padaręs iki 2010 metų lyg, bet su C++. Jeigu tinka, tai galiu įmest vėliau kai prie kompo prisėsiu.

Įmesk, mane irgi domintų :)

#include <iostream>
#include <fstream>

using namespace std;

void rikiuoti(int startp[]);
void skaityti(int &n, int numeriai[], int buvoaikstelej[], int buvosuolely[], int startinispenk[]);
void skmazdaug(int n, int numeriai[], int buvo[], int &index);
void isvesti(int startinispenk[], int numeriai[], int buvoaikstelej[], int buvosuolely[], int dzaideindex, int mzaideindex);


int main()
{
   int n;
   int numeriai[12]={0}, buvoaikstelej[12]={0}, buvosuolely[12]={0}, startinispenk[5]={0};
   int dzaideindex=0, mzaideindex=0;

   skaityti(n, numeriai, buvoaikstelej, buvosuolely, startinispenk);
   rikiuoti(startinispenk);
   skmazdaug(n, numeriai, buvosuolely, mzaideindex);
   skmazdaug(n, numeriai, buvoaikstelej, dzaideindex);
   isvesti(startinispenk, numeriai, buvoaikstelej, buvosuolely, dzaideindex, mzaideindex);
}

void skmazdaug(int n, int numeriai[], int buvo[], int &index){
   int zaide=0;
   for(int i=0; i<n; i++){
       if(buvo[i]>zaide){index=i; zaide=buvo[i];}
   }
}

void skaityti(int &n, int numeriai[], int buvoaikstelej[], int buvosuolely[], int startinispenk[]){
   int laikas, laiku, sp=0;
   ifstream a("U1.txt");
   a>>n;
   for(int i=0; i<n; i++){
       a>>numeriai[i];
       a>>laiku;

       a>>laikas;
       if(laikas>0){buvoaikstelej[i]+=laikas; startinispenk[sp]=numeriai[i]; sp++;}else{buvosuolely[i]-=laikas;}
       for(int x=1; x<laiku; x++){
           a>>laikas;
           if(laikas>0){buvoaikstelej[i]+=laikas;}else{buvosuolely[i]-=laikas;}
       }
   }
   a.close();
}

void rikiuoti(int startp[]){
   for(int a=0; a<5; a++){
   for(int i=0; i<4; i++){
       if(startp[i]>startp[i+1]){int temp=startp[i]; startp[i]=startp[i+1]; startp[i+1]=temp;}
   }}
}

void isvesti(int startinispenk[], int numeriai[], int buvoaikstelej[], int buvosuolely[], int dzaideindex, int mzaideindex){
   ofstream isvedimas("U1rez.txt");
   for(int i=0; i<5; i++){
       isvedimas << startinispenk[i]<< " ";
   }
   isvedimas << endl << numeriai[dzaideindex] << " " << buvoaikstelej[dzaideindex] << endl;
   isvedimas << numeriai[mzaideindex]<<" "<< buvosuolely[mzaideindex] << endl;
   isvedimas.close();
}

Kodas gal ir ne super kokybiškas, bet veikia. It's something, i guess.

Jei dar kokiam uždaviny kils neaiškumų, galiu kodą numest ir kitų

p.s. programą rašyt baigiau ~3h nakties, tai gali būt kokių neaiškiai suveltų vietų, jei ką klauskit