Inc(nOdd);

end;

if nOdd > 1 then

writeln('Нет')

else begin

writeln('Да');

for c:='A' to 'Z' do

for i:=1 to count[c] div 2 do

write(c);

if nOdd = 1 then write(cOdd);

for c:='Z' downto 'A' do

for i:=1 to count[c] div 2 do

write(c);

end;

end.

15. Для решения задачи нужно ответить на ряд вопросов:

Какие данные нужно хранить?

Какие структуры данных применить (простые переменные, массив, запись и т.п.)?

Как читать данные?

Какую обработку можно выполнить прямо при чтении?

Какую обработку нужно выполнить после чтения всех данных?

Как выводить результаты?

По условию нас интересует только фамилия, имя и сумма баллов, поэтому отдельные баллы, полученные по каждому из видов многоборья, мы хранить не будем.

В условии сказано, что количество спортсменов не более 1000. Фактически, это явное указание на то, что нужно сначала прочитать данные всех спортсменов в массив, а потом делать окончательную обработку. Удобно использовать массив записей такого типа:

type TInfo = record

name: string[33];

sum: integer;

end;

Поле name хранит имя и фамилию как одну символьную строку, ее длина равна сумме максимальных длин имени и фамилии (12 + 20) плюс 1 символ на пробел между ними. Второе поле – сумма баллов, ее мы будем считать прямо во время чтения данных. Уже можно написать начало программы:

Var Info: array[1..1000] of tInfo;

M, N, i, j, ball: integer;

c: char;

begin

readln(N); { число спортсменов }

readln(M); { число видов многоборья }

for i:=1 to N do begin

Info[i].name := '';

for j:=1 to 2 do { читаем два блока: фамилию и имя }

repeat

read(c);

Info[i].name := Info[i].name + c;

until c = ' ';

{ здесь нужно читать баллы и суммировать их }

end;

{ сортировка массива }

{ вывод таблицы результатов }

end.

Чтение и суммирование баллов по отдельным видам спорта (их всего M) выполняем в цикле:

Info[i].sum := 0;

for j:=1 to M do begin

read(ball);

Info[i].sum := Info[i].sum + ball;

end;

При сортировке массива нам потребуется переставлять структуры типа TInfo, поэтому нужно объявить вспомогательную структуру:

Var temp: tInfo;

Для сортировки можно использовать любой метод, например, классический «метод пузырька»:

for i:=1 to N-1 do

for j:=N-1 downto i do

if Info[j].sum < Info[j+1].sum then begin

temp := Info[j];

Info[j] := Info[j+1];

Info[j+1] := temp;

end;

Осталось решить вопрос о выводе данных. Итак, список спортсменов отсортирован по убыванию суммы баллов, но места не расставлены. Сложность в том, что несколько спортсменов могут набрать одинаковую сумму, при этом они должны получить одно и то же место.

Сделаем вывод места следующим образом. Введем целую переменную mesto. Очевидно, что тот, кто стоит первым в списке, занял первое место (запишем в переменную mesto значение 1). Теперь в цикле рассмотрим всех спортсменов, стоящих в списке под номерами от 1 до N. Если номер очередного спортсмена больше 1 и его сумма баллов меньше сумме балов предыдущего, то увеличиваем переменную mesto на 1. Затем выводим фамилию и имя, сумму баллов и mesto.

mesto := 1;

for i:=1 to N do begin

if (i > 1) and (Info[i].sum < Info[i-1].sum) then

mesto := mesto + 1;

writeln(Info[i].name, ' ', Info[i].sum, ' ', mesto);

end;

Вот вся программа целиком:

type TInfo = record

name: string[33];

sum: integer;

end;