Question

ПАСКАЛЬ ABC.NET Дан массив А. Сформировать массив В, элементы которого вычисляются по формуле = (i+1)*

Answer 1

begin

 var n := ReadInteger('n =');

 var a := ArrRandom(n, -10, 99);

 a.Println;

 var b := a.Select((v,i) -> (i + 1) * v).ToArray;

 b.Println;

end.

Answer 2

Для создания массива В, элементы которого вычисляются по формуле (i+1)*, где i - индекс элемента массива А, можно использовать следующий код на языке Pascal:

lessCopy code
var
  A, B: array [1..N] of integer; // N - размер массива
  i: integer;
begin
  // инициализация массива А
  for i := 1 to N do
    A[i] := i;
  
  // вычисление элементов массива В
  for i := 1 to N do
    B[i] := (i+1)*A[i];
end.

В этом коде мы создаем два массива - А и В, оба размера N. Затем мы инициализируем массив А значениями от 1 до N, чтобы i-й элемент А содержал значение i. Далее мы используем цикл для вычисления каждого элемента массива В, используя формулу (i+1)*A[i]. Каждый вычисленный элемент сохраняется в соответствующей позиции массива В.