Это программирование, паскаль, нужно написать программу

Дан одномерный массив A, состоящий из N элементов, N - заданное натуральное

число. Если элементы массива составляют строго монотонную последовательность, то

все положительные элементы массива заменить единицей, иначе оставить массив без

изменения.

Question

Информатика

Лилюха

14 ноября, 05:13

Это программирование, паскаль, нужно написать программу

Дан одномерный массив A, состоящий из N элементов, N - заданное натуральное

число. Если элементы массива составляют строго монотонную последовательность, то

все положительные элементы массива заменить единицей, иначе оставить массив без

изменения.

+5

Ответы (1)

Знаете ответ?

Валена · Answer 1

A:array[1 ... 30000] of integer;

n, i, k, z:integer;

begin

readln (n) ;

for i:=1 to n do

readln (a[i]) ;

for i:=1 to n do

if (a[i]
for i:=1 to n do

if (a[i]>a[i+1]) then z:=z+1;

if (k=n) or (z=n) then

for i:=1 to n do

if a[i]>0 then a[i]:=1;

for i:=1 to n do

writeln (a[i]) ;

readln;

end.