Дан одномерный массив 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
