Это программирование, паскаль, нужно написать программу Дан одномерный массив A,...

Question

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










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

Comments

Это задание полное, ув. товарищ админ

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.

Comments

если не будет работать попробуйте (k=n) or (z=n) then begin и end после a[i]:=1;