Дистанционная подготовка: Эта программа работает
Эта программа работает
от Алмаз Ханнанов - Вторник 2 Апрель 2019, 11:18
112316. Ровно K раз
  program qq;
var a:array[1..10001] of integer;
n,k,i,j,t:integer;
f:boolean;
begin
read(n);
for i:=1 to n do read (a[i]);
read(k);
for i:=1 to n-1 do
for j:= i+1 to n do
if a[i] > a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
i:=1;
f:= false;
repeat;
j:=i+1;
while (a[i] = a[j]) and (j <= n) do inc(j);
if j - i = k then
begin writeln(a[i]);
f:=true;
end;
i:=j;
until j>n;
if not f then write(0);
end.