Дана программа, написанная на языке Pascal, формирующая квадратный массив и заполняющая его по определённым правилам. Чему будет равно значение переменной Р по окончании выполнения программы? const N=7; var i, К:integer; R, P:real; A:array[1..N,1..N] of real; beginK:=0; R:=0; while K<N do begin for i:=1 to N-K do begin R:=R+1; A[i,i+K]:= R; end; K:= K+1; end; P:= A[3,7]; writeln(P); end. А) 17 Б) 22 В) 25 Г) 28

Квадратный массив, размером 7 на 7 заполняется по правилу: числа записываются по диагонали слева сверху вправо вниз начиная с главной диагонали и выше. В результате получается следующая таблица:
1 8 14 19 23 26 28
0 2  9 15 20 24 27
0 0  3 10 16 21 25
0 0 0  4   11 17 22
0 0 0  0   5   12 18
0 0 0  0   0   6   13
0 0 0  0   0   0   7
Переменной P присваивается значение элемента массива с номером 3, 7. На этом месте стоит число 25.
Ответ: В) 25