Элементы двухмерного массива размером 10 Х 10 первоначально равны 1.Затем значения...

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