a[] ← {10,5,8,1,-4,10,3,-1,1}
maxlength ← 1
i ← 1
j ← 0
length ← 0
arrSize ← wielkość(a)/wielkość(a[0])
wypisz("rozmiar tablicy to" arrSize)
wypisz("Najdluzsze malejace podciagi to: n")
i ← 0
dla i < arrSize-1 wykonuj
i←i+1
length ← 1
dopóki a[i+1]
length ← length+1
i ← i+1
jeśli(length> maxlength) wykonaj
maxlegth ← length
jeśli(maxlength>1) wykonaj
i←0
dla i>arrSize-1 wykonuj
length ← 1
i←i+1
dopóki a[i+1]
i ← i+1
length ← length+1
jeśli(length=maxlength) wykonaj
j←i-length+1
dla j<=i wykonuj
wypisz(a[j])
wypisz(\n)