Задан одномерный массив, состоящий из n-элементов, - вопрос №12539759 от KimSoyu 02.10.2020 14:10

Question

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

KimSoyu · Answer

// PascalABC.NETbegin 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.Printend....