Сумма, драгоценные камни, Олимпиадная задача с ВКОШП 2008 Опции

[Zzzz...]

Добрый день!
Кто-либо может объяснить задачу Е и задачу J. Буду очень признателен...

В прикрепленном файле находятся все задачи с ВКОШП'а.

[Zzzz...]

вот вроде бы решил но не знаю правильно ли :

 
VAR

x,q,j,n,k,i:longint;
s:string;
a,b:array [1..10000] of char;

BEGIN
assign(input,'gems.in');
reset(input);
assign(output,'gems.out');
rewrite(output);

readln(n,k);
readln(s);
for i:=1 to k do
    begin
         read(a[i]);
         readln(b[i]);
    end;

for i:=1 to n do
    begin
         for j:=1 to k do
             begin
                  if s[i]=a[j]
                     then
                         for x:=i to n do
                             begin
                                  if (b[j]=s[x]) and (x<>j) and (x<>i) then
                                     inc(q)
                             end;
             end;
    end;
writeln(q);
close(input);
close(output);
END.

[Lapp]

вот вроде бы решил но не знаю правильно ли :

Нет.

1. Главная ошибка - ты не убираешь найденные камни из списка. Это нужно. Если не так - не было бы смысла в повторяющихся камнях в списке.

2. Тип string явно недостаточен для хранения списка из 100000 камней

3. Зачем ты сравниваешь x c j и x c i? Для второго достаточно начать цикл с i+1, а первое просто неверно (вредно).

4. Скорость. Все надо организовывать не так..

Сделай массив
gems: array[a..z]of LongInt;
Пройдись по входному списку и заполни gems количествами каждого камня.
Потом иди по парам, и

if (gems[a[i]]>0)and(gems[b[i]]>0) then begin
  Inc(p);
  Dec(gems[a[i]]);
  Dec(gems[b[i]])
end;

Вот, примерно так..