Элементы двухмерного массива размером 10 Х 10 первоначально равны 1. Затем значения некоторых из них меняют с помощью следующего фрагмента программы: for n:=1 to 4 do for k:=1 to n+1 do begin A[n, k]:=A[n, k]-1; A[k, n]:=A[k, n]-1; end; Сколько элементов массива в результате будут равны 0? 1) 0 2) 4 3) 8 4) 16

Program gt;

var a:array[1 ... 10,1 ... 10]of integer;

n, k, p:integer;

begin

p:=0;

for n:=1 to 10 do

for k:=1 to 10 do

a[n, k]:=1;

for n:=1 to 4 do

for k:=1 to n+1 do

begin

A[n, k]:=A[n, k]-1;

A[k, n]:=A[k, n]-1;

end;

for n:=1 to 10 do

begin

for k:=1 to 10 do

begin

write (a[n, k]:3,' ') ;

if (a[n, k]=0) then p:=p+1;

end;

writeln;

end;

writeln (p) ;

end.

ответ: 8