Задача на Паскале(нужно полное решение)Задан массив случайным образом. Преобразовать его след. образом:все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10

Question

Задача на Паскале(нужно полное решение)Задан массив случайным образом. Преобразовать его след. образом:все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10

Задача на Паскале(нужно полное решение) Задан массив случайным образом. Преобразовать его след. образом: все отрицательные элементы заменить модулем, положительные удвоить, нулевые заменить числом 10

Гость

Ответ(ы) на вопрос:

Accepted Answer

var A: array [1..100] of integer; i: integer; begin randomize; for i := 1 to 100 do begin A[i] := random(200) - 100; end; for i := 1 to 100 do begin if (A[i] < 0) then A[i] := Abs(A[i]); else if (A[i] > 0) A[i] := A[i] * 2; else A[i] = 10; end; end.