Pascal abc.net вводится массив из n целых чисел. поменять в нем местами самое большое и само маленькое числа.

Var n, i, min, max, min_i, max_i, tmp: integer; a: array[1..100] of integer; begin     readln(n);     for i : = 1 to n do         read(a[i]);     min : = a[1];     max : = a[1];       min_i : = 1;   {номер минимального}     max_i : = 1;     for i : = 2 to n do     begin         if min > a[i] then         begin             min : = a[i];           min_i : = i;         end;         if max < a[i] then           begin             max : = a[i];             max_i : = i;           end;     end;       tmp : = a[max_i];     a[max_i] : = a[min_i];       a[min_i] : = tmp;     for i : = 1 to n do         write(a[i], ' '); end.

1.разделим монеты на 3 кучки по 9 монет. положим на чаши весов первую и вторую кучки; по результату этого взвешивания мы точно узнаем, в какой из кучек находится фальшивка (если весы покажут равенство, то она - в третьей кучке). теперь, аналогично, разделим выбранную кучку на три части по три монеты, положим на весы две из этих частей и определим, в какой из частей находится фальшивая монета. наконец, остается из трех монет определить более тяжелую; кладем на чаши весов по 1 монете -фальшивкой является более тяжелая; если же на весах равенство, то фальшивой является третья монета из части. 2. 1). наполняем (4), переливаем в (3), в (4) остался 1л. 2). выливаем из (3), переливаем из (4) в (3), теперь в (3) 1л 3). наполняем (4) и переливаем в (3) до заполнения. т.е. 2л. в (4) останется 4-2=2л.