Значение элементов двумерного целочисленного массива В, оба индекса которого меняются в пределах от 1 до 12, задаются с помощью двойного цикла, представленного следующим фрагментом программы: В[1,1]:=2; For k:=2 to 12 do For n:=1 to k do Begin B[k, n]:=n*k-B[k-1, n]; B[n, k]:=B[k, n]; End; Сколько в этом массиве окажется чётных чисел? В ответе укажите только число, без пробелов и каких-либо знаков препинания, например 100

Question

Kumar

Информатика

4 мая, 14:13

Значение элементов двумерного целочисленного массива В, оба индекса которого меняются в пределах от 1 до 12, задаются с помощью двойного цикла, представленного следующим фрагментом программы: В[1,1]:=2; For k:=2 to 12 do For n:=1 to k do Begin B[k, n]:=n*k-B[k-1, n]; B[n, k]:=B[k, n]; End; Сколько в этом массиве окажется чётных чисел? В ответе укажите только число, без пробелов и каких-либо знаков препинания, например 100

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Михаил Ларин · Answer 1

Допишем программу и исполним её в компиляторе:

var b: array[1 ... 100, 1 ... 100] of integer;

k, x, n: integer;

begin

В[1,1]:=2;

For k:=2 to 12 do

For n:=1 to k do

Begin

B[k, n]:=n*k-B[k-1, n];

B[n, k]:=B[k, n];

End;

for k : = 1 to 12 do

for n : = 1 to k do if b[n, k] mod 2 = 0 then x : = x + 1;

writeln (x);

end.

На выходе программа вывела число 39.