А размером 4х4 были равны 0, потом программа изменяет их, сколько элементов массива А будут равны 1? For n:= 1 to 4 do For k:=n to 4 do A[n,k]:=1

просто если следовать алгоритму то 10 чиселn=1  k=1 ⇒ A[1,1]=1  k=2 ⇒ A[1,2]=1  k=3 ⇒ A[1,3]=1  k=4 ⇒ A[1,4]=1n=2  k=2 ⇒ A[2,2]=1  k=3 ⇒ A[2,3]=1  k=4 ⇒ A[2,4]=1n=3  k=3 ⇒ A[3,3]=1  k=4 ⇒ A[3,4]=1n=4 k=4 ⇒ A[4,4]=1