Question

Элементы двухмерного массива размером 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 

Answer 1

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