明明的随机数

最新推荐文章于 2023-01-19 11:44:30 发布

原创最新推荐文章于 2023-01-19 11:44:30 发布 · 191 阅读

0 ·

CC 4.0 BY-SA版权

洛谷题专栏收录该内容

24 篇文章

订阅专栏

本文展示了一段使用Pascal语言实现的数组排序代码。该程序读取一系列整数并进行排序，同时去除重复元素。排序算法采用的是简单的冒泡排序，并通过双重循环实现了两两比较和交换的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
a:array[1..10000]of longint;
i,j,n,nn,t:longint;
begin
read(n);
nn:=n;
for i:=1 to n do
read(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
if a[i]=a[j] then
begin
dec(nn);
a[i]:=0;
end;
end;
writeln(nn);
for i:=1 to n do
if a[i]<>0 then write(a[i],' ');
end.