В массиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить **...

Question

В массиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить на 7. Вывести на экран исходный и преобразованный массивы.

Answer 1

Const nx = 100;Var i, b, c, n: integer;A:Array[1..nx] of integer;Beginwrite('Введите число элементов массива');Read(n);for i:= 1 to n do beginA[i]:= random(100)-50;write(A[i]:4);end;writeln;for i:= 1 to n do beginif A[i]>0 then A[i]:= A[i]*2elseA[i]:= A[i]-7;write(A[i]:4);end;end.