Это программирование, паскаль, нужно написать программу
10-11 класс
|
Дан одномерный массив A, состоящий из N элементов, N – заданное натуральное
число. Если элементы массива составляют строго монотонную последовательность, то
все положительные элементы массива заменить единицей, иначе оставить массив без
изменения.
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]<a[i+1]) then k:=k+1;
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.
Это задание полное, ув. товарищ админ
Другие вопросы из категории
Над двумя произвольными трехзначными десятичными
числами была произведена операция по следующему правилу: Записывается результат сложения старших разрядов этих
чисел. К нему дописывается результат сложения значений
средних разрядов по такому правилу: если он меньше первой суммы, то полученное
число приписывается к первому слева, иначе – справа. Итоговое число получают приписыванием справа к числу,
полученному после второго шага, сумму значений младших разрядов исходных чисел.
Какое из
перечисленных чисел могло быть построено по этому правилу?
A) 141819
B) 171814
C) 171418
D) 141802
Читайте также
13.
Нужно написать программу на цикле с предусловием, на Паскале.
оказаться)
нужно написать программу на c++
Используя обращения 1) по индексу и 2) по указателю.
2.написать программу в паскале
f(x)=2(sin*sin)x+1
рдинат. Я поняла, что нужно найти их длины (формулы я знаю), а правильно написать программу не могу
http://primat.org/index/0-128 вот сайт что бы написать программу.