Яку формулу потрібно ввести в клітинку В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​

Const
  lim = 11;

type
  V = array[1..lim] of integer;

function FirstNegative(a: V; n: integer): integer;
var
  i: integer;
begin
  i := 0;
  Result := 0;
  repeat
    i := i + 1;
    if a[i] < 0 then Result := i
  until (Result > 0) or (i > lim)
end;

procedure InpMass(var a: V; var n: integer; mName: string);
// Организует ввод массива
var
  i, p: integer;
begin
  writeln('Вводите элементы массива ' + mName + '; 7777 - конец ввода');
  i := 0;
  repeat
    read(p);
    i := i + 1;
    if p <> 7777 then a[i] := p;
  until (p = 7777) or (i > lim);
  n := i - 1
end;

var
  a, b: V;
  m, n, p, q: integer;

begin
  InpMass(a, m, 'A');
  InpMass(b, n, 'B');
  p := FirstNegative(a, m);
  q := FirstNegative(b, n);
  if p <= q then writeln('Номер первого отрицательного элемента в массива А: ', p)
  else writeln('Номер первого отрицательного элемента в массива B: ', q)
end.

Тестовое решение:

Вводите элементы массива A; 7777 - конец ввода
37 14 -25 32 30 -29 38 27 7777
Вводите элементы массива B; 7777 - конец ввода
33  -36   23  -17   -3  -16  -33   33  -48  -39   30 7777
Номер первого отрицательного элемента в массива B: 2

var
  p1, p2, buf: real;
  n: byte;

begin
  readln(n);
  for i: byte := 1 to n do
  begin
    readln(buf);
    if (buf > 0) then
      if (p2 = 0) then
        p2 := buf
      else
        p2 := p2 * buf
    else
      if (p1 = 0) then
        p1 := buf
      else
        p1 := p1 * buf;
  end;
  
  writeln('P1 = ', p1, #13, 'P2 = ', p2);
  
  if (abs(p1) > abs(p2)) then
    writeln('|', p1, '| > |', p2, '|')
  else
    if (abs(p1) < abs(p2)) then
      writeln('|', p1, '| < |', p2, '|')
    else
      writeln('|', p1, '| = |', p2, '|')
end.