При равенстве результатов соревнования выводится тот, кто первый закончил игру, вывести количество награжденных

@maftrek · Регистрация: 06.02.2014

Студворк — интернет-сервис помощи студентам

В ходе соревнований заполняется протокол, где пишется кол-во очков и фамилия в том порядке в котором участники завершили игру, один участник может участвовать несколько раз в этом случает выбирается лучший его результат, при равенстве результатов выводится тот кто первый закончил игру, вывести кол-во награжденных (К в программе).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
program pr1;
type mas=array [1..1000] of integer;
mas1=array[1..1000] of string;
var ball,ret:mas;im:mas1;s,b,s1:string; n,k,i,j,l,kol,nom,ch,code,max,mesto,c:integer;
begin
readln(n);
readln(k);
for i:=1 to n do begin
readln(s);
kol:=kol+1;
nom:=pos(' ',s);
b:=copy(s,1,nom-1);
val(b,ch,code);
ball[i]:=ch;
im[i]:=copy (s,nom+1,length(s)-nom);
ret[i]:=kol;
end;
for i:=1 to n-1 do begin
max:=ball[i];
for j:=i+1 to n do begin
if ball[j]>max then
begin
max:=ball[j]; mesto:=j;
end;
end;
c:=ball[i];ball[i]:=ball[mesto];
ball[mesto]:=c;
s1:=im[i];
im[i]:=im[mesto];
im[mesto]:=s1;
c:=ret[i];ret[i]:=ret[mesto];
ret[mesto]:=c;
end;
for i:=1 to n-1 do begin
for j:=n downto i+1 do begin
if im[i]=im[j] then begin
for l:=j to n-1 do begin
im[l]:=im[l+1];
ball[l]:=ball[l+1];
ret[l]:=ret[l+1];
end;end;end; end;
i:=1;
while i<=k-1 do begin
if ball[i]=ball[i+1]
then if ret[i]>ret[i+1]
then writeln (ball[i+1],im[i+1]) else
writeln (ball[i],im[i]); i:=i+1;
end;
end.

Зацикливается, помогите,пожалуйста, понять где ошибка

@Puporev · 07.02.2014, 09:22

Сообщение от maftrek

вывести кол-во награжденных

А по какому принципу награждаются?

@maftrek · 07.02.2014, 11:39 **[ТС]**

Сообщение от Puporev

А по какому принципу награждаются?

У кого больше очков, если равное количество то тот кто первый закончил игру
К примеру участников 4 надо наградить 2
135 Макс
156 Алекс
135 Карл
178 Алекс
Тогда награждаются
178 Алекс
135 Макс (т.к.Макс закончил раньше Карла)

@Puporev · 07.02.2014, 11:45

135 Макс
156 Алекс
131 Карл
А здесь кто награждается?

Добавлено через 1 минуту
В смысле сколько человек?
Обычно всегда награждаются первые 3, а в условии должно быть
вывести фамилии награжденных, а не количество.

@maftrek · 07.02.2014, 12:24 **[ТС]**

Точно, там количество вводится в выводится столько участников ,сколько К. Если К =2 то выводится двое

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	07.02.2014, 11:45
	135 Макс 156 Алекс 131 Карл А здесь кто награждается? Добавлено через 1 минуту В смысле сколько человек? Обычно всегда награждаются первые 3, а в условии должно быть вывести фамилии награжденных, а не количество. 0

@maftrek 0 / 0 / 0 Регистрация: 06.02.2014 Сообщений: 9
	07.02.2014, 12:24 [ТС]
	Точно, там количество вводится в выводится столько участников ,сколько К. Если К =2 то выводится двое 0