Для кодирования некоторой последовательности, состоящей из букв а, б, в, г, д, е, ж, з, и, й. решили использовать неравномерный двоичный код, удовлетворяющий условию фано. для букв а, б, в, г, д, е, ж, з, и использовали соответственно кодовые слова 010, 0011, 0111, , 0010, 1110, 110, , 0110. укажите кратчайшее возможное кодовое слово для буквы й, при котором код будет допускать однозначное декодирование. если таких кодов несколько, укажите код с наименьшим числовым значением.

#include <stdio.h> 
#include <math.h>
void minmax(int x1[],int y1[])
{
int i, j, imax, jmax, imin, jmin;
int len=sizeof(x1);
float max = 0;
float min = 1000;
float r;
for ( i = 0; i < len-1; i ++ ) 
      for ( j = i+1; j < len; j ++ )
      {
      r = sqrt((x1[i]-x1[j])*(x1[i]-x1[j])+(y1[i]-y1[j])*(y1[i]-y1[j]));
      if (r>max) { max = r; imax = i; jmax = j;}
      if (r<min) { min = r; imin = i; jmin = j;}
      }
   printf("max = %f точки: %d - %d\n", max, imax+1, jmax+1);
   printf("min = %f точки: %d - %d\n", min, imin+1, jmin+1);
}

int main() 
{ 
   int n=5;
   int x[n], y[n], i; 

   srand (time(NULL));  
   for ( i = 0; i < n; i ++ )  
   {
    x[i] = rand() % 20 -10;
    y[i] = rand() % 20 -10;
    printf ("%4d, %4d ", x[i], y[i]);
    printf("\n");
   }
    minmax(x,y);
    return 0;
}

Пример:
-10, 4
-5, 2
-9, -1
 7, 2
 7, -3
max = 17.117243 точки: 1 - 4
min = 5.000000 точки: 2 - 3

Тут все

const
    handsfree = true;

var
    a: array[1..100] of real;
    i, n: integer;
    min, max: real;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
   
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
   
    {подсчет элементов}
    k := 0;
    for i := 1 to n do
        if a[i] > 5 then k := k + 1;
    writeln(k);
   
    {минимум и максимум}
    max := a[1];
    min := a[1];
    for i := 1 to n do
    begin
        if max < a[i] then max := a[i];
        if min > a[i] then min := a[i];
    end;
    writeln('max = ', max);
    writeln('min = ', min);
   
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    product := 1;
    harmonic := 1;
    k := 0;
    for i := 1 to n do
    begin
        if true then {если нужен фильтр}
        begin
            sum := sum + a[i];
            product := product * a[i];
            harmonic := harmonic + 1 / a[i];
            k := k + 1;
        end;
    end;
    writeln('sum = ', sum);
    writeln('product = ', product);
    writeln('average = ', sum / n);
    writeln('average (selected) = ', sum / k);
    writeln('harmonic mean = ', n / harmonic);
    writeln('harmonic mean (selected) = ', k / harmonic);
   
    {изменение элементов}
    for i := 1 to n do
    begin
        if a[i] < 0 then
            a[i] := abs(a[i]);
        write(a[i], ' ');
    end;
end.