2013VBE pavyzdine uzduotis

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

toks uzduotis buvo 2011 metais egzamine, gali paieskoti internete.

Dar ir olimpiadoje man atrodo kazkada 1:1 toks buvo :)

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.