Текстовый алгоритм
I присвоить значение -1
J присвоить значение 0
Вывести список стран.
Выбрать номер страны.
Присвоить значение имени первого спортсмена
Присвоить значение имени второго спортсмена
Присвоить значение имени четвертого спортсмена
Присвоить значение имени пятого спортсмена
I присвоить значение -1
К переменной i прибавить 1
I спортсмену присвоить значение его имени и называния выбранной страны в которой состоит.
Выбранной стране её j спортсмену присвоить ссылку на iого спортсмена массива спортсменов
J прибавить 1
Повторить с пункта 8 для каждого из полей спортсменов
Ввод Х
если Х равно 1 перейти к пункту 3
Вывести список участвующих стран.
Выбрать страну
Ввод улов1, улов2
Присвоить i-ому спортсмену команды значения улов1 и улов2
Повторить для каждой участвующей страны пункт 17 по 20
Для i от 0 до количество_спорстменов; шаг 1
У i-ого спортсмена значение уловоб = улов1+ улов2
Для i от 0 до кол-во_команд; шаг 1
Для j от 0 до кол-во_спорт_в_команде
У i-ой команды значение улов1= улов1 + улов1 i-ого спортсмена
У i-ой команды значение улов2= улов2 + улов2 i-ого спортсмена
У i-ой команды значение уловоб= уловоб + уловоб i-ого спортсмена
i2= 1; i3= 0; i4 = 0;
До тех пор пока i2 < колво_спортсменов + 1 выполнять
Макс_улов1 = 0; макс_улов2 = 0; i1 = 0;
До тех пор пока i1 < колво_спортсменов выполнять
Если Макс_улов1 < улов1 i-ого спортсмена и место1 == 0 то
I3 = i1; Макс_улов1 = улов1 i-ого спортсмена;
Если Макс_улов2 < улов2 i-ого спортсмена и место2 == 0 то
I4 = i1; Макс_улов2 = улов2 i-ого спортсмена;
I1 ++;
Вернуться на 32
Место1 i3-ему спорстсмену = i2
Место2 i4-ему спорстсмену = i2
I2++;
Вернуться на 30;
Повторить с п. 29 заменяя спортсменов на команды
Для i от 0 до колво_спортсменов
Сумма_мест i-ого спортсмена = место1 + место2.
Для i от 0 до колво_команд
Сумма_мест i-ой команды = место1 + место2
I1 = сумма_мест 0-ой спортсмена; i2 = уловоб; i3 = улов1;
Для i от 0 колво_спортсменов
Если i1 > суммы_мест i-ого спортсмена
I1 = сумма_мест i-ого спортсмена
Для i от 0 до колво_спортсменов
Если i1 == сумма_мест i-ого спортсмена
Местооб i-ого спортсмена = 1;
Для i от 0 до колво_спортсменов
Если i2 < уловоб i-ого спортсмена и местооб ==1
I2 = уловоб i-ого спортсмена
Для i от 0 до колво_спортсменов
Если i2 != уловоб i-ого спортсмена и местооб ==1
Местооб = 0;
Для i от 0 до колво_спортсменов
Если i3 < улов1 i-ого спортсмена и местооб ==1
I3 = улов1 i-ого спортсмена
Для i от 0 до колво_спортсменов
Если i3 != улов1 i-ого спортсмена и местооб ==1
Местооб = 0;
Повторить с 43 заменяя спортсменов на команды
Для i от 0 до колво_спортсменов
Если место1 i-ого спортсмена == 1 Вывести его имя и страну
Если место2 i-ого спортсмена ==1 Вывести его имя и страну
Если местооб i-ого спортсмена ==1 Вывести его имя и страну
Для i от 0 до колво_команд
Если место1 i-ой команды == 1 Вывести страну
Если место2 i- ой команды ==1 Вывести страну
Если местооб i- ой команды ==1 Вывести страну