Примеры формальных исполнителей а)симфонический оркестр исполняет музыкальное произведениеб) ученик 7 класса решает по с) фармацевт готовит лекарство по рецепту​

Var a, b, c, i, j, n, ch: integer;         s, p: array [1..10000] of integer; begin     n: =30;     for i: =1 to n do       s[i]: =random(64000)-32000;       writeln('данный массив');     for i: =1 to n do       write (s[i],' ');     a: =s[1];     for i: =1 to n do       if s[i]> a then           a: =s[i];     for i: =1 to n do         if s[i]=a then           begin           j: =j+1;           p[j]: =i;           end;     c: =j;     writeln;     writeln('полученный массив');     for i: =1 to n do         begin         ch: =0;         for j: =1 to c do           if i=p[j] then inc(ch);         if ch=0 then write (s[i],' ');         end; end.         p.s. надеюсь на и лучший ответ.

А) берём 2 из трёх монет и взвешиваем их: если монеты весят одинаково, следовательно оставшаяся монета-лишняя, если одна монета легче другой, следовательно она фальшивая б) на каждую чашу весов ложим по две монеты. берём монеты с той чаши, которая легче и взвешиваем монеты-та что легче и есть фальшивая. г)на каждую чашу ложим по три монеты. чаша с фальшивой монетой окажется легче. а дальше как под (а)  берём 2 из трёх монет и взвешиваем их: если монеты весят одинаково, следовательно оставшаяся монета-лишняя, если одна монета легче другой, следовательно она фальшивая) в)ложим на каждую чашу весов по 2 монеты. если монеты весят одинаково, то оставшаяся монета-лишняя, если одна чаша легче, то взвешиваем монеты, лежащие на ней , та монета что легче-фальшивая.   (тут всё ок)