Question

Задача на Паскале(нужно полное решение)

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

Answer 1

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.