Задан одномерный массив, состоящий из n-элементов, вводимых с клавиатуры. Все элементы, значения которых равны 0, заменить на их индекс; все отрицательные элементы заменить на модуль этих чисел; значения положительных элементов увеличить в 5 раз. Все действия сделать в одном цикле. Вывести на печать новый массив.
Ответ
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.
Дополнительные материалы:
