uses crt;
var
x:array[1..10] of integer;
i,j,z,sayi:integer;
tus:char;
label
1,2;
procedure degis(var a,b:integer);
var
c:integer;
begin
c:=a;
a:=b;
b:=c;
end;
begin
clrscr;
repeat
tus:=readkey;
randomize;
for i:=1 to 10 do
begin
1:sayi:=random(79)+1;
x:=sayi;
end;
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
if(x=x[i+j]) then
goto 1;
end;
end;
for z:=1 to 9 do
for i:=10 downto 2 do
if x[i-1]>x then degis(x[i-1],x);
for i:=1 to 10 do writeln(' Sans Numaralariniz..: ',x:3);
writeln;
until tus=#27;
readln;
end.
var
x:array[1..10] of integer;
i,j,z,sayi:integer;
tus:char;
label
1,2;
procedure degis(var a,b:integer);
var
c:integer;
begin
c:=a;
a:=b;
b:=c;
end;
begin
clrscr;
repeat
tus:=readkey;
randomize;
for i:=1 to 10 do
begin
1:sayi:=random(79)+1;
x:=sayi;
end;
for i:=1 to 9 do
begin
for j:=1 to 9 do
begin
if(x=x[i+j]) then
goto 1;
end;
end;
for z:=1 to 9 do
for i:=10 downto 2 do
if x[i-1]>x then degis(x[i-1],x);
for i:=1 to 10 do writeln(' Sans Numaralariniz..: ',x:3);
writeln;
until tus=#27;
readln;
end.
