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

justsgamer2000Kerzch justsgamer2000Kerzch    2   29.06.2019 09:50    0

Ответы
makcim2504 makcim2504  02.10.2020 15:03
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика