Это программирование, паскаль, нужно написать программу 










Дан одномерный массив A, состоящий из N элементов, N – заданное натуральное
число. Если элементы массива составляют строго монотонную последовательность, то
все положительные элементы массива заменить единицей, иначе оставить массив без
изменения. 

a:array[1..30000] of integer;n, i, k, z:integer;beginreadln(n);for i:=1 to n doreadln(a[i]);for i:=1 to n doif (a[i]<a[i+1]) then k:=k+1;for i:=1 to n doif (a[i]>a[i+1]) then z:=z+1;if (k=n) or (z=n) thenfor i:=1 to n doif a[i]>0 then a[i]:=1;for i:=1 to n dowriteln(a[i]);readln;end.