В программе описан одномерный целочисленный массив. for i:=0 to 10 do A[i]:= i + 1; for i:=10downto 0 do A[i]:= A[10-i] Чему будут равны элементы этого массива? только подробно
В программе описан одномерный целочисленный массив.
for i:=0 to 10 do
A[i]:= i + 1;
for i:=10downto 0 do
A[i]:= A[10-i]
Чему будут равны элементы этого массива?
только подробно
Гость
Ответ(ы) на вопрос:
ГостьДелаем программу с трассировкой и все хорошо видно.
var A:array[0..10] of integer;
var i:integer;
begin
Writeln('Первый цикл');
for i:=0 to 10 do begin
A[i]:= i + 1;
Writeln('i=',i,', a[',i,']=',a[i])
end;
Write('Массив: '); a.Println;
Writeln('Второй цикл');
for i:=0 to 10 do begin
A[i]:= A[10-i];
Writeln('i=',i,', a[',i,']=',a[i])
end;
Write('Массив: '); a.Println
end.
Результат
Первый цикл
i=0, a[0]=1
i=1, a[1]=2
i=2, a[2]=3
i=3, a[3]=4
i=4, a[4]=5
i=5, a[5]=6
i=6, a[6]=7
i=7, a[7]=8
i=8, a[8]=9
i=9, a[9]=10
i=10, a[10]=11
Массив: 1 2 3 4 5 6 7 8 9 10 11
Второй цикл
i=0, a[0]=11
i=1, a[1]=10
i=2, a[2]=9
i=3, a[3]=8
i=4, a[4]=7
i=5, a[5]=6
i=6, a[6]=7
i=7, a[7]=8
i=8, a[8]=9
i=9, a[9]=10
i=10, a[10]=11
Массив: 11 10 9 8 7 6 7 8 9 10 11
Не нашли ответ?
Похожие вопросы