program princezninyKorale;
{ Testik na 5. hodině (1.11.2012).
Druhé z možných řešení:
Načteme n = počet korálků. Dále budeme načítat n-1 čísel a budeme je odškrtávat v poli. -->
Jediné neodškrtlé číslo z rozmezí <1,n> je hledaný ztracený korálek. Jeho index vypíšeme. }
const MAX_N = 1000;
var n, i, x, celkem : integer;
ztraceneKoralky : array[1..MAX_N] of boolean;
begin
read(n);
{ Nejdříve předpokládáme, že všechny korálky jsou ztracené. }
for i:=1 to n do
ztraceneKoralky[i] := true;
{ Následně těm indexům, které ztracné nejsou, přiřadíme false.}
for i:=1 to n-1 do
begin
read(x);
ztraceneKoralky[x] := false;
end;
{ Projdeme celou "odškrtávací tabulku" a všechny, které jsme neodškrtli (tedy zůstala jim hodnota true),
vypíšeme. Pokud splňoval vstup zadání, vypíšeme právě jedno číslo. }
for i:=1 to n do
if (ztraceneKoralky[i]) then
write(i);
end.
Kdo byste našel v nějakém z těchto programů chybu, dejte mi to vědět - můžete tak získat bonusové body (1 chyba ≈ 5 bodů). ;)