Hanteris

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;

Tai jeez gi kodą lai pabando.
Kad nereiktų ieškot suradau tą kodą : 93872354601187439 mėgink

Vedu su draugeliu ir aš tokius konspektus trumpus, turiu šiek tiek autorių, nėra tobula, bet gal kam pravers. :)
Konspektai

Gal kam bus naudinga, ikeliu autorius (nevisi) ju temas ir kurinius ir t.t.
 
http://img43.imagevenue.com/img.php?image=658685699_IMG_0499_122_111lo.JPG
 
http://img200.imagevenue.com/img.php?image=658723928_IMG_0500_122_111lo.JPG

Vienas iš galimų variantų:
 

program Batai; type Mas = array [1..100] of integer; var n :integer; lytis, koja, dydis : Mas; procedure Skaitymas; var D :text; i, j :integer; begin Assign(D,'U1.txt'); Reset(D); ReadLn(D,n); for i := 1 to n do begin Read(D,lytis[i],koja[i],dydis[i]); ReadLn(D); end; Close(D); end; function Skaiciavimas(gim:integer) : integer; var i, j, kiek :integer; begin kiek := 0; for i := 1 to n - 1 do for j:= i + 1 to n do if (lytis[i] = gim) and (lytis[j] = gim) and (koja[i] <> koja[j]) and (dydis[i] = dydis[j]) then begin kiek := kiek + 1; lytis[i]:= 0; lytis[j]:= 0; koja[i] := 0; koja[j] := 0; dydis[i]:= 0; dydis[j]:= 0 end; Skaiciavimas := kiek; end; procedure Rasymas; var R :text; begin Assign(R,'U1Rez.txt'); Rewrite(R); WriteLn(R,Skaiciavimas(4)); WriteLn(R,Skaiciavimas(3)); Close(R); end; begin Skaitymas; Rasymas; end.

Kaip suprantu tavo duomenų failas būtų maždaug toks:

5 5 15 2 8 7 79 14 34 1 4
pirmoje eilutėje parodo, kiek kiekviename masyve bus elementų/narių. Pradžioje tau reikia nuskaityti n ir masyvus su n narių. Tavo užduotis sudaryti trečią masyvą. Panašiu prinicu į:

masyvas3[k]:=masyvas1[k]+masyvas2[k]; // k - masyvo nario vieta
Tada surasti visų trečio masyvo narių sumą ir galiausiai surikiuoti trečią masyvą mažėjimo tvarka.
Viską išvesti su paaiškinimais (ką išvedi, pavyzdžiui, 'visų masvyas3 elementų suma: '). Nors ką tiksliai turi omenyje su paaiškinimais aš nesu tikras.
 
Jeigu kur užstrigsi parašyk čia kodą.