Savelieva24
?>

Какие значения появятся в ячейках D2:D5, если в них скопировать формулу из ячейки D1 =A1*B2-C$3

Информатика

Ответы

maruska90
// PascalABC.NET 3.2, сборка 1431 от 28.04.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-20,20).Select(i->i/10).ToArray;
  Write('Массив: '); a.Println;
  Writeln('Сумма элементов с нечетными номерами: ',
    a.Where((x,i)->i.IsEven).Sum);
  var i1:=a.FindIndex(x->x<0);
  var i2:=a.FindLastIndex(x->x<0);
  Write('Вторая искомая сумма: ');
  if i2=i1 then Writeln(0)
  else Writeln(a[i1+1:i2].Sum);
  Write('Сжатый массив: ');
  a:=a.Where(x->abs(x)>1).ToArray; a.Println;
end.

Пример
n= 10
Массив: 1.8 0.2 1 -2 0.1 0.4 -1 1.2 -1.4 0.6
Сумма элементов с нечетными номерами: 0.5
Вторая искомая сумма: 0.7
Сжатый массив: 1.8 -2 1.2 -1.4

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Какие значения появятся в ячейках D2:D5, если в них скопировать формулу из ячейки D1 =A1*B2-C$3
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

pnatalia
bandurinei
rodsher7740
osuvorova7979
АлександровнаВладимирович1424
purchase
lbondareva
Анатольевич1707
slspam
lighturist
fominovaVladislav1346
Мелконян1137
nikziam
qwe54344
keykov35