Присвоить номера игрокам сборной

@Nikitos_$mile:) · Регистрация: 12.11.2011

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

Национальная сборная команда по воллейболу формируется из 10 игроков нескольких клубов. Известны номера игроков в своих клубах. Присвоить им номера в сборной так, чтобы максимальное количество игроков сохранило свои клубные номера. Все номера не превышают 10. Вводятся 10 номеров игроков в клубах. Напечатать в том же порядке 10 номеров в сбоной.

Пример ввода
2 4 5 4 6 10 6 10 10 1

Вывод
2 4 5 3 6 10 7 8 9 1

Добавлено через 10 минут
пожалуйста, люди, ПОМОГИТЕ!!!

@shum_ont · 13.11.2011, 22:12

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
50
51
52
53
54
var mas,mas2: array[0..10] of byte;
    i,i2,i3,i4,i5,n:byte;
 
 
begin
{случайно создаем номера из клубов}
n:=10;
Write('Номера в клубе: ');
for i:=1 to n do  begin
mas[i]:=random(n-1)+1;
Write(mas[i],', ');
end;
 
 
{сначала те которые не повторяются}
for i:=1 to n do begin
    for i2:=1 to n do
      if (mas[i]<>mas[i2]) and (i<>i2) then
         i3:=i3+1;
    if i3=n-1 then
      begin
      i4:=i4+1;
      mas2[i4]:=mas[i];
      end;
       i3:=0;
end;
 
{терь присваиваем незанятые номера оставшимся}
 
for i:=n-(n-i4)+1 to n do begin // от первого нуля до конца
  i5:=0;
 
  for i2:=1 to n do begin
    for i3:=1 to n do
       if (mas2[i3]=i2) then i5:=i5+1;
     
    if i5=0 then begin
    mas2[i]:=i2;
    break;
    end
    else
    i5:=0;
  end;
end;
 
 
 
{печатаем номера сборной}
WriteLn;
Write('Номера в сборной: ');
for i:=1 to n do  begin
Write(mas2[i],', ');
end;
end.

@Nikitos_$mile:) · 14.11.2011, 14:23 **[ТС]**

а можно как-нибудь по-проще

@shum_ont · 14.11.2011, 14:52

для такой длинной задачи проще некуда

@Nikitos_$mile:) · 14.11.2011, 15:28 **[ТС]**

нет, можно какнибудь с другими типами переменных типа IntegER

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

@Nikitos_$mile:) 21 / 20 / 17 Регистрация: 12.11.2011 Сообщений: 48

	Присвоить номера игрокам сборной 13.11.2011, 18:54. Показов 2414. Ответов 4 Метки нет (Все метки) Национальная сборная команда по воллейболу формируется из 10 игроков нескольких клубов. Известны номера игроков в своих клубах. Присвоить им номера в сборной так, чтобы максимальное количество игроков сохранило свои клубные номера. Все номера не превышают 10. Вводятся 10 номеров игроков в клубах. Напечатать в том же порядке 10 номеров в сбоной. Пример ввода 2 4 5 4 6 10 6 10 10 1 Вывод 2 4 5 3 6 10 7 8 9 1 Добавлено через 10 минут пожалуйста, люди, ПОМОГИТЕ!!! 1

@Nikitos_$mile:) 21 / 20 / 17 Регистрация: 12.11.2011 Сообщений: 48
	14.11.2011, 14:23 [ТС]
	а можно как-нибудь по-проще 1

@shum_ont 61 / 60 / 17 Регистрация: 17.02.2011 Сообщений: 161
	14.11.2011, 14:52
	для такой длинной задачи проще некуда 0

@Nikitos_$mile:) 21 / 20 / 17 Регистрация: 12.11.2011 Сообщений: 48
	14.11.2011, 15:28 [ТС]
	нет, можно какнибудь с другими типами переменных типа IntegER 1

Присвоить номера игрокам сборной

Решение