fork download
copy 
  1. var
  2. a:array[1..100] of integer;
  3. i,j:integer;
  4. procedure swap(var x,y: integer);
  5.  var t: integer;
  6.  begin
  7.     t := x; 
  8.     x := y;
  9.     y := t
  10.  end;
  11. begin
  12. for i:=1 to 100 do a[i]:=random(100);
  13. for j:=1 to 99 do
  14. for i:=1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]);
  15. for i:=2 to 99 do if (a[i]=a[i+1]) or (a[i]=a[i-1]) then writeln('a[',i,']=',a[i]);
  16. end.
Success #stdin #stdout 0s 4220KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
a[12]=14
a[13]=14
a[14]=14
a[17]=21
a[18]=21
a[24]=32
a[25]=32
a[27]=35
a[28]=35
a[29]=36
a[30]=36
a[31]=38
a[32]=38
a[33]=38
a[37]=43
a[38]=43
a[42]=47
a[43]=47
a[44]=47
a[45]=47
a[46]=52
a[47]=52
a[48]=52
a[50]=54
a[51]=54
a[52]=56
a[53]=56
a[56]=60
a[57]=60
a[58]=61
a[59]=61
a[60]=61
a[61]=61
a[64]=64
a[65]=64
a[68]=67
a[69]=67
a[75]=75
a[76]=75
a[77]=77
a[78]=77
a[80]=79
a[81]=79
a[84]=83
a[85]=83
a[86]=84
a[87]=84
a[89]=87
a[90]=87
a[92]=90
a[93]=90
a[95]=94
a[96]=94
a[98]=96
a[99]=96
https://ideone.com/moKTRo
language:
Pascal (fpc 3.0.4)
created:
4 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!