dsd1-10 / dsd-08=skill / two

l=10

declare(mas[l])

for(i 0 l-1

mas[i]=random(20)

)

for(i 0 l-1 println(mas[i]))

procedure(sortir(mas)

prog( (min len buf max)

len = length(mas)

max=0

for(i 0 len-1

if((mas[i]>max) then max=mas[i])

)

for(i 0 len-1

for(j 0 len-1-i

if((mas[len-i-1]>mas[j]) then buf=mas[j] mas[j]=mas[len-1-i] mas[len-i-1]=buf )

)

)

return(t)

)

)

sortir(mas)

for(i 0 l-1 println(mas[i]))

procedure(dura(@rest m)

prog((len i)

len=length(m)

declare(new_mas[len])

i=0

foreach(x m

new_mas[i]=x

i++

)

for(j 0 len-1 println(new_mas[j]))

sortir(new_mas)

println("vot !!!")

for(j 0 len-1 println(new_mas[j]))

return(t)

)

)

dura(1 2 3 4 6)

l=length(new_mas)

println("vot !!!")

for(i 0 l-1 println(new_mas[i]))