Двумерные массивы.

[Vadim123456]

Все элементы двумерного массива A размером 10х10 элементов первоначально были равны 0. Затем значения элементов меняются с помощью вложенного оператора цикла в представленном фрагменте программы:

for n:=1 to 4 do
  for k:=n to 4 do begin
    A[n,k] := A[n,k] + 1;
    A[k,n] := A[k,n] + 1;
  end;

Сколько элементов массива в результате будут равны 1?


У меня получилось 12. Проверьте меня, пожалуйста.

[D@rkD@iver]

а помоему 10

[Roof]

у меня получилось 12:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A: array[1..10, 1..10] of Integer;
  n, k: Integer;

begin
  for n := 1 to 4 do
    for k := n to 4 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
        Write(A[n, k], '  ');
     WriteLn;
    end;
    
  ReadLn;
end.