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

Question

Информатика

Тавифа

25 октября, 15:56

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

+4

Ответы (1)

Знаете ответ на вопрос?

Евлампия · 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.