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

Var / /начало программы;

а:array[1 ... 100] of integer; / /переменные для цикла;

i, n:integer; / /переменные целого типа;

begin

writeln ('Введите нужное количество элементов'); / /просим ввести элементы;

read (n); / /запишем в переменную;

writeln ('Введите элемент'); / /просим ввести элемент;

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.