Hanteris

Premija gauta :)

As ne bendrabuty gyvensiu

As, jauciu dviese tik busim :D

O jeigu as 11 ir 12 klasei neturejau fizikos, imanoma prasimust?

mano variantas:

program U2;

const CDuom = 'U2.txt';
     CRez  = 'U2rez.txt';
     CMax  = 50;

type Eil = string[10];
    dievas = record
               vardas : Eil;
               taskai : integer;   //tasku isviso
               klyg   : integer;   //kiek lyginiu skaicius
             end;

    TMas = array[1..CMax] of dievas;

var A,B,C : TMas;
   n,
   k : integer;
   nr : integer;

procedure Skaityti;
var i,j,sk : integer;
   F : text;
begin
 Assign(F,CDuom); Reset(F);
 ReadLn(F,n,k);
 for i := 1 to n do
   begin
     A[i].taskai := 0; A[i].klyg := 0;
     Read(F,A[i].vardas);
       for j := 1 to k do
         begin
           Read(F,sk);
             if sk mod 2 = 0 then begin
                                    A[i].taskai := A[i].taskai + sk;
                                    A[i].klyg := A[i].klyg + 1;
                                  end
                             else A[i].taskai := A[i].taskai - sk;

         end;
         ReadLn(F);
   end;
 Close(F);
end;  

Kur užsigaudei? CS cheat'ų ieškojai?

brolis, minecraft cheatu

Tai jeez gi kodą lai pabando.

Kad nereiktų ieškot suradau tą kodą : 93872354601187439 mėgink

dekui, dingo

Sveiki, susiduriau su problema. Gal isivaizduojate kas cia per nesamone? Padaryti nieko negalima. alt+ctrl+del nereguoja. Viska isbandziau.

koks butu sio uzdavinio algoritmas? Gal galite padeti? programuoju pascaliu

Pats naudoju Driver Genius Professional 11.0.0.1112. Labai gera programa

Dėkui, tos vietos kaip sudaryti tą trečią masyvą nesupratau. Daugiau viskas suprantama.

Sveiki, galite padėti su pascalio užduotimi? Nuskaitęs duomenų failą nelabai suprantu ką toliau daryti. Gal galite trumpai paaiškinti?