GAECHKA
Твоя помощница в решении задач

Задать массив А(15) числами от -6 до 9. Положительные элементы уменьшить вдвое, а отрицательные заменить на значения их

Задать массив А(15) числами от -6 до 9. Положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов.
0
вопрос задан

Источник


1 ответ
begin
  var a:=ArrRandomReal(15,-6,9);
  a.Println;
  WriteLn('~'*20);
  a.Numerate.Select(v->(v[1]0?v[0]:v[1]/2)).Println;
end.