Отправлено: 03.05.11 17:58. Заголовок: Здравствуйте, Оксана..

Здравствуйте, Оксана!
Задачи этого типа легко решаются с помощью любой Паскаль-среды с отладчиком. :-) Вот полная программа:

 program qq; 
 var k: integer; 
     A: array[0..10] of integer; 
 begin 
 for k:=0 to 10 do 
   A[k]:= k + 1; 
 for k:=10 downto 0 do 
   A[k]:= A[10-k];  
 for k:=0 to 10 do write(A[k], ' '); 
 end.

Хитрость в том, что после того, как мы дошли до середины массива в цикле

 for k:=10 downto 0 do 
   A[k]:= A[10-k];

все "старшие" значения второй половины уже "затерты": вместо 11 стоит 1, вместо 10 - 2 и т.д. Они и будут скопированы в первую часть, то есть фактически не изменятся. Получается массив

1 2 3 4 5 6 5 4 3 2 1

Правильный ответ - 4.