Предмет: Информатика,
автор: looko9044
Задан одномерный массив, состоящий из 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.
Приложения:

Похожие вопросы
Предмет: Математика,
автор: opasnaya
Предмет: Другие предметы,
автор: Аноним
Предмет: Английский язык,
автор: kirik0332
Предмет: Химия,
автор: 9600662