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

Var a=array[1..100] of integer;
i,n:integer;
begin
writeln('vvedite kol-vo elementov');
read(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]>0) then a[i]:=1;
for i:=1 to n do
write(a[i],' ');
end.