
Ishngda
5 год назад
1) В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i:=0 to 10 doA[i]:= i + 1; for i:=1 to 10 doA[i]:= A[i-1]; Как изменяются элементы этого массива?1) все элементы, кроме последнего, сдвигаются на 1 элемент вправо2) все элементы, кроме первого, сдвигаются на 1 элемент влево3) все элементы окажутся равны 14) все элементы окажутся равны своим индексам2) В программе описан одномерный целочисленный массив с индексами от 0 до 10. В приведенном ниже фрагменте программы массив сначала заполняется, а потом изменяется: for i:=0 to 10 doA[i]:= i + 1; for i:=10 downto 0 doA[i]:= A[10-i]; Чему будут равны элементы этого массива?1) 10 9 8 7 6 5 4 3 2 1 02) 11 10 9 8 7 6 5 4 3 2 13) 11 10 9 8 7 6 7 8 9 10 114) 1 2 3 4 5 6 5 4 3 2 1Объясните, пожалуйста.
ОТВЕТЫ

Стефанка
Oct 24, 2020
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]
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]
652
Смежные вопросы: