Яку формулу потрібно ввести в клітинку В2, щоб після її копіювання в діапазон В2:К11 була отримана зображена
таблиця множення?
Введіть формулу без пробілів.
I
А
B
С
D
E
F
G
H
І
к
1
1
3
oNoN
4
5
6
7
8
О)
10
2
1
1
3
4
5
7
9
10
3
2
4
8
16
6
8
10
2
3
12
14
20
4
3
6
9
12
15
18
27
18
21
5
4
4
8
12
16
30
40
24
24
32
40
6
28
35
5
5
10
20
25
30
15
20
50
7
30
36
6
12
18
24
6
7
36
45
54
63
42
60
8
7
48
56
14
21
28
35
42
49
70
9
8
8
16
24
32
40
48
64
80
10
56
63
9
9
72
81
18
27
36
54
90
45
50
11
10
10
20
30
72
80
40
60
70
90
100
Відповісти
Всього набрано балів: 012
Питання 3 3 12​

Program Task;
Var a: Array [1..40] of Integer;
b: Real;
c, d, e, i: Integer;
Begin
Randomize;
For i := 1 To 40 Do
a[i] := Random(20 + 1);
WriteLn('Массив:');
For i := 1 To 40 Do
Write(a[i], ' ');
WriteLn;
For i := 1 To 40 Do
Begin
If a[i] Mod 2 = 1 Then
Begin
b := b + a[i];
c := c + 1;
End;
If a[i] <= 10 Then
d := d + a[i];
If a[i] Mod 3 = 0 Then
e := e + a[i];
End;
WriteLn('Среднее арифметическое нечётных чисел: ', (b / c):2:2);
WriteLn('Сумма чисел, не превышающих 10: ', d);
WriteLn('Сумма чисел кратных 3: ', e);
ReadLn;
End.

Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13