Дан одномерный массив A, состоящий из N элементов, N – заданное натуральное число. Если элементы массива составляют строго монотонную последовательность, то все положительные элементы массива заменить единицей, иначе оставить массив без изменения.
Ответ
Проверено экспертом
Автор - WinSagit
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.