1) в программе описан одномерный целочисленный массив с индексами от 0 до 10. в ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i: =0 to 10 do a[i]: = i + 1; for i: =1 to 10 do a[i]: = a[i-1]; как изменяются элементы этого массива? 1) все элементы, кроме последнего, сдвигаются на 1 элемент вправо 2) все элементы, кроме первого, сдвигаются на 1 элемент влево 3) все элементы окажутся равны 1 4) все элементы окажутся равны своим индексам 2) в программе описан одномерный целочисленный массив с индексами от 0 до 10. в ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i: =0 to 10 do a[i]: = i + 1; for i: =10 downto 0 do a[i]: = a[10-i]; чему будут равны элементы этого массива? 1) 10 9 8 7 6 5 4 3 2 1 0 2) 11 10 9 8 7 6 5 4 3 2 1 3) 11 10 9 8 7 6 7 8 9 10 11 4) 1 2 3 4 5 6 5 4 3 2 1 объясните, .

Var       a: array[0..10] of integer;       i, n, k: integer; //      b: array[1..4, 1..4] of integer; begin       println();       println(1);       for i : = 0 to 10 do               a[i] : = i + 1;       println(a);       println();       for i : = 1 to 10 do       begin               a[i] : = a[i - 1];               println(a);       end;             println();       println(2);       for i : = 0 to 10 do               a[i] : = i + 1;       println(a);       println();       for i : = 10 downto 0 do       begin               a[i] : = a[10 - i];               println(a);       end; end. тут вывод трасировок последних циклов 1 [1,2,3,4,5,6,7,8,9,10,11] [1,1,3,4,5,6,7,8,9,10,11] [1,1,1,4,5,6,7,8,9,10,11] [1,1,1,1,5,6,7,8,9,10,11] [1,1,1,1,1,6,7,8,9,10,11] [1,1,1,1,1,1,7,8,9,10,11] [1,1,1,1,1,1,1,8,9,10,11] [1,1,1,1,1,1,1,1,9,10,11] [1,1,1,1,1,1,1,1,1,10,11] [1,1,1,1,1,1,1,1,1,1,11] [1,1,1,1,1,1,1,1,1,1,1] 2 [1,2,3,4,5,6,7,8,9,10,11] [1,2,3,4,5,6,7,8,9,10,1] [1,2,3,4,5,6,7,8,9,2,1] [1,2,3,4,5,6,7,8,3,2,1] [1,2,3,4,5,6,7,4,3,2,1] [1,2,3,4,5,6,5,4,3,2,1] [1,2,3,4,5,6,5,4,3,2,1] [1,2,3,4,5,6,5,4,3,2,1] [1,2,3,4,5,6,5,4,3,2,1] [1,2,3,4,5,6,5,4,3,2,1] [1,2,3,4,5,6,5,4,3,2,1] [1,2,3,4,5,6,5,4,3,2,1]

Var i,q: integer; s: real; a: array[1..10]of integer; beginfor i: =1 to 10 do begina[i]: =random(100); s: =s+a[i]; end; s: =s/10; for i: =1 to 10 do beginwriteln(a[i]); if a[i]> s then q: =q+i; end; writeln(q); end.