Тема: Программа в PascalABC.NET
Показать сообщение отдельно
Старый 13.05.2016, 20:53   #3 (permalink)
Начертательная
Member
 
Регистрация: 03.05.2016
Сообщений: 33
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 253
По умолчанию Помощь студентам
Ну цикл будет примерно таким
Код:
for j:=i to (k-i) div 2 do 
begin
  Buf:=A[j];
  A[j]:=A[k-j+i];
  A[k-j+i]:=Buf;
end
Начертательная вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070