Question

Задан одномерный массив, состоящий из n-элементов, вводимых с клавиатуры. Все элементы, значения которых равны 0, заменить на их индекс; все отрицательные элементы заменить на модуль этих чисел; значения положительных элементов увеличить в 5 раз. Все действия сделать в одном цикле. Вывести на печать новый массив.

Answer 1

// PascalABC.NET

begin

var n := ReadInteger;

var a := ReadArrInteger(n);

for var i := 0 to a.High do

 case Sign(a[i]) of

   -1: a[i] := -a[i];

   0: a[i] := i; // индексы от 0 !

   1: a[i] *= 5;

 end;

 a.Print

end.