Дистанционная подготовка: Моя программа красивая?
Моя программа красивая?
от Даниил Рагутский - Пятница 22 Март 2019, 08:54
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 (jn;
if not f then write(0)
end.

Re: Моя программа красивая?
от AAAAA RRRRR - Вторник 26 Март 2019, 11:43
  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;
if not f then write(0);
end.
Re: Моя программа красивая?
от AAAAA RRRRR - Вторник 26 Март 2019, 11:43
  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.