Дан массив состоящий из 8 вещественных чисел. все элементы с чётными номерами уменьшить на 1 с нечетными- увеличить 1

atoko atoko    1   15.08.2019 20:50    3

Ответы
ника2763 ника2763  31.08.2020 16:26
// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(ReadInteger('n='),-10,10); a.Println;
  a:=a.Select((x,i)->i mod 2=0?x+1:x-1).ToArray; a.Println
end.

Пример
n= 10
-9.05843428292239 -4.25451094017108 9.66351874157019 -3.1105665178553 4.8065062215582 -2.02809873597142 4.59844561973514 -4.45959216657076 1.37816560984504 -7.69115956392659
-8.05843428292239 -5.25451094017108 10.6635187415702 -4.1105665178553 5.8065062215582 -3.02809873597142 5.59844561973514 -5.45959216657076 2.37816560984504 -8.69115956392659
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика