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

var a=array[1..100] of integer;i,n:integer;beginwriteln('vvedite kol-vo elementov');read(n);writeln('vvedite elementy');for i:=1 to n doread(a[i]);for i:=1 to n doif (a[i]>0) then a[i]:=1;for i:=1 to n dowrite(a[i],' ');end.