Самойлова
Гена Сампара
for i := 1 to b div 2 do begin t := a[ i ]; a[ i ] := a[ n-i+1 ]; a[ n-i+1 ] := t; end;
ВГ
Владимир Горицин
for i := 1 to b div 2 do begin t := a[ i ]; a[ i ] := a[ n-i+1 ]; a[ n-i+1 ] := t; end;
Похожие вопросы