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

var a: array[1..10, 1..10] of real; i, j, k,n,r,t: integer; begin  Randomize;  for i := 1 to 10 do begin for j := 1 to 10 do begin    a[i, j] := 1;    Write(a[i, j]:4);    end;Writeln;end;Writeln;Writeln;for n:=1 to 4 dofor k:=2 to n+1 do begin//a[n, k]-1;a[n, k-1]:= a[n, k]-1;end;for i := 1 to 10 do begin    for j := 1 to 10 do begin      Write(a[i, j]:4);    end;Writeln;end;end.будут равны 0 = 10