Question

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

Answer 1

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