Ниже приведен фрагмент программы чему равно sum если n 6, а начальное значение всех элементов массива a равно нулю for i:= 1 to n do
for x:= 1 to i do
for y:= 1 to n-i+1 do
a[x, y] :=a[x, y]+1
sum := 0;
for x:= 1 to n do
for y:= 1 to n do
sum := sum + a[x, y];
Writeln(sum);

kense    2   18.10.2020 11:56    19