Регистрация
poroshind
24.09.2021 11:27
Информатика
Есть ответ 👍

На расстоянии 12-14 Арбитр засчитывает кеглю вытолкнутой и снимает
ее с ринга, если кегля оказалась за пределами круга.
Это познавательно!
Соревнование по кегельрингу состоит из двух туров. Все
команды принимают участие в первом туре. По итогам всех
раундов первого тура некоторые команды отправятся во вто-
рой тур, в котором используются другие позиции. Результа-
ты второго тура рассматриваются независимо от результатов
первого.​

132
395
Посмотреть ответы 1

Ответы на вопрос:

shamsi3000
shamsi3000
4,7(25 оценок)
Var   a: array [1..10000] of integer;   i,j,k,m,n: integer; begin   read(n);   for i : = 1 to n do     read(a[i]);   for i : = 1 to n-1 do     begin     m : = a[i];     k : = i;     for j : = i+1 to n do         if a[j] < m then           begin           m : = a[j];           k : = j           end;     if i < > k then         begin         a[k] : = a[i];         a[i] : = m;         end;     end;   for i : = 1 to n do   write(a[i],' ');   writeln;   k : = 1;   for i : = 2 to n do     if a[i] < > a[i-1] then         k : = k + 1;   writeln(k) end.

Популярно: Информатика