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

Предыдущий
вопрос Следующий
вопрос

program MonotoneSequence;

var
A: array of Integer;
N, i: Integer;
isMonotone: Boolean;

begin
Write('Введите количество элементов массива: ');
ReadLn(N);

SetLength(A, N);

WriteLn('Введите элементы массива:');
for i := 0 to N - 1 do
ReadLn(A[i]);

isMonotone := true;
for i := 1 to N - 1 do
begin
if A[i] <= A[i - 1] then
begin
isMonotone := false;
break;
end;
end;

if isMonotone then
begin
WriteLn('Элементы массива составляют монотонную последовательность.');

end
else
begin
WriteLn('Элементы массива не составляют монотонную последовательность.');
WriteLn('Массив остается без изменений.');
end;

end.