Question

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

Answer 1

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.