评测状态 Wrong Answer
题目 P1316 明明的随机数
递交时间 2014-08-08 19:40:29
代码语言 Pascal
评测机 VijosEx
消耗时间 30 ms
消耗内存 612 KiB
评测时间 2014-08-08 19:40:30
评测结果
编译成功

Free Pascal Compiler version 2.6.2 [2013/02/12] for i386
Copyright (c) 1993-2012 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling foo.pas
foo.pas(3,11) Note: Local variable "b" not used
Linking foo.exe
33 lines compiled, 0.3 sec , 28608 bytes code, 1628 bytes data
1 note(s) issued
测试数据 #0: Accepted, time = 0 ms, mem = 612 KiB, score = 10
测试数据 #1: Accepted, time = 0 ms, mem = 604 KiB, score = 10
测试数据 #2: Accepted, time = 0 ms, mem = 604 KiB, score = 10
测试数据 #3: Accepted, time = 15 ms, mem = 608 KiB, score = 10
测试数据 #4: Accepted, time = 0 ms, mem = 608 KiB, score = 10
测试数据 #5: Accepted, time = 0 ms, mem = 608 KiB, score = 10
测试数据 #6: Accepted, time = 0 ms, mem = 608 KiB, score = 10
测试数据 #7: Accepted, time = 0 ms, mem = 608 KiB, score = 10
测试数据 #8: Accepted, time = 0 ms, mem = 608 KiB, score = 10
测试数据 #9: WrongAnswer, time = 15 ms, mem = 612 KiB, score = 0
WrongAnswer, time = 30 ms, mem = 612 KiB, score = 90
代码
var
n,m,i,j,k,t:longint;
a,b:array[1..100] of integer;
begin
readln(n);
m:=n;
for i:=1 to n do
read(a[i]);
begin
for i:=1 to n-1 do
for j:=i+1 to n do
begin
if a[i]=a[j] then begin
for k:=j to m do
begin
a[k]:=a[k+1];
end;
n:=n-1;
end;
end;
end;
begin
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;
end;
writeln(n);
for k:=1 to n do
write(a[k],' ');
end;
end.