Ребята выручайтеДомашнее задание:1. Заполнить элементы массива К числами оборотными их

Вопрос к 1 заданию. Сколько частей в массиве K, n?

в дз не указанно

я написал как есть

Понял

Решите?

либо не как

Замечание:
1-ое задание неправильно: не обозначено, от какого значения начинаются индексы. Здесь вернее было бы сказать о порядковом номере элемента.

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('n=');
  var k:array[1..1000] of real;
  for var i:=1 to n do begin k[i]:=1/i; Print(k[i]) end
end.

Пример
n= 10
1 0.5 0.333333333333333 0.25 0.2 0.166666666666667 0.142857142857143 0.125 0.111111111111111 0.1

begin
  var c:=ArrRandom(ReadInteger('n='),-99,99).Select(t-gt;t/10).ToArray;
  c.Println;
  c.Transform(t-gt;tgt;0?t+0.4:t=0?0.5:t);
  var sn:=c.Where(t-gt;tlt;0).Sum;
  var pp:=c.Where(t-gt;tgt;0).Aggregate(1.0,(x,y)-gt;x*y);
  Writeln('Сумма отрицательных ',sn,', произведение положительных ',pp)
end.

Пример
n= 15
6.7 4.2 6.3 -4.3 -4.6 -5.9 8.7 4.6 9.7 3 -9.7 8.9 5.4 -2.2 4.8
Сумма отрицательных -26.7, произведение положительных 95899635.466646

1-ая 
include lt;iostreamgt;  include lt;vectorgt;  using namespace std;int main() int n; cin gt;gt; n; vector lt;intgt; v(n); for (int i = n - 1; i gt;= 0; i--) v[i] = n-i; for (int i = 0; i lt; n; i++) coutlt;lt;v[i]lt;lt;' '; return 0;