Microsoft excel составить итоговую ведомость по экспертным оценкам (от 0 до 10 ) кандидатов на должность генерального директора фирмы «аква». ведомость должна включать следующую информацию: номер кандидата (не менее 5), номер эксперта (не менее 5) и их количество . требуется рассчитать: сумму для каждого кандидата, общую сумму , процентное соотношение суммы для каждого кандидата и общей суммы , максимальный, минимальный и средний размер процентного соотношения. выполнить условное форматирование для ячеек номер кандидата: если процентное соотношение равно максимальному значению, то ячейку залить сиреневым цветом, а если процентное соотношение равно минимальному значению, то ячейку залить желтым цветом. построить диаграмму, отображающую долю набранных каждого кандидата.

Один из вариантов состоит из двух таблиц. левая таблица - база данных правая форма отчета с необходимыми условиями

Var    i, j, k : integer;     a : array [0..9,0..9] of char;   procedure u(i,j: integer);     var c : char;   begin    c: =a[i,j]; a[i,j]: =' ';     if (c='w')and(a[i+1,j]='b') then u(i+1,j);   if (c='b')and(a[i+1,j]='w') then u(i+1,j);     if (c='w')and(a[i-1,j]='b') then u(i-1,j);     if (c='b')and(a[i-1,j]='w') then u(i-1,j);     if (c='w')and(a[i,j+1]='b') then u(i,j+1);     if (c='b')and(a[i,j+1]='w') then u(i,j+1);     if (c='w')and(a[i,j-1]='b') then u(i,j-1);     if (c='b')and(a[i,j-1]='w') then u(i,j-1);   end;   begin    assign(input,'input.txt');   reset(input);     assign(output,'output.txt');   rewrite(output);     for i: =1 to 8 do begin    for j: =1 to 8 do   read(a[i,j]);     readln    end;     for i: =1 to 8 do   begin    a[0,i]: =' '; a[9,i]: =' ';     a[i,0]: =' '; a[i,9]: =' '    end;     k: =0;     for i: =1 to 8 do    for j: =1 to 8 do    if a[i,j]< > ' ' then  begin    k: =k+1; u(i,j)    end;     write(k);     close(output)  end. 

Var    i, j, k : integer;     a : array [0..9,0..9] of char;   procedure u(i,j: integer);     var c : char;   begin    c: =a[i,j]; a[i,j]: =' ';     if (c='w')and(a[i+1,j]='b') then u(i+1,j);   if (c='b')and(a[i+1,j]='w') then u(i+1,j);     if (c='w')and(a[i-1,j]='b') then u(i-1,j);     if (c='b')and(a[i-1,j]='w') then u(i-1,j);     if (c='w')and(a[i,j+1]='b') then u(i,j+1);     if (c='b')and(a[i,j+1]='w') then u(i,j+1);     if (c='w')and(a[i,j-1]='b') then u(i,j-1);     if (c='b')and(a[i,j-1]='w') then u(i,j-1);   end;   begin    assign(input,'input.txt'); reset(input);     assign(output,'output.txt');   rewrite(output);     for i: =1 to 8 do begin    for j: =1 to 8 do   read(a[i,j]);     readln    end;     for i: =1 to 8 do   begin    a[0,i]: =' '; a[9,i]: =' ';     a[i,0]: =' '; a[i,9]: =' '    end;     k: =0;     for i: =1 to 8 do    for j: =1 to 8 do    if a[i,j]< > ' ' then begin    k: =k+1; u(i,j)    end;     write(k);     close(output)  end.