Дистанционная подготовка: Красивая прога?
Красивая прога?
от Даниил Рагутский - Пятница 22 Март 2019, 09:02
112315. Сколько разных?
  program qq;
var a:array[1..10000] of integer;
n,i,j,x,k:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
k:=1;
for i:=2 to n do
if a[i] a[i-1] then inc(k);
for i:=1 to n do
write(' ', a[i]);
writeln;
write(k);
end.