цикл: в линейной последовательности поменять местами 1-й и N-й, 2-й и N-1 й и т.д.

[ВДПУ]

Разработать алгоритм и программу, которые в линейные последовательности размерности n меняют местами первый элемент с в последнее, второй с передостаним и т.д.


var radok:string;
i,L:integer;
begin
writeln
readln(radok);
L:=length(radok);
end.

[Valio]

1. Это возможно только если n чётное.
2. В цикле for от 1 до n/2.
3. Что за последовательность?

второй с передостаним

Что такое "передостание"?

[ВДПУ]

например. Есть строка символов "авбс" а надо сделать "сбва"

[Valio]

Ну да, всё так.

Элементы с которыми надо работать будут i и n - i

[ВДПУ]

передостание"ето- пред последний

[ВДПУ]

А как правильно это прописать в программе? Помогите пожалоста

[Valio]

For i := 1 To L/2 Do
Begin
// Тут "меняют местами первый элемент с в 
// последнее, второй с передостаним и т.д."
End;

Но для решения этой задачи необходима ещё одна переменая типа String, чтоб запоминать там один из переставляемых элементов.

[ВДПУ]

) Я понял шо в цикле for. А вот какую структуру имеет цикл в опературних скобках?

[Valio]

Довольно простую:

1. Нам нужно переставить элемент i с элементом L-i.
2. Сохраним элемент i в переменую Temp.
3. Присвоим элементу i значение L-i.
4. Элементу i присвоим значение переменой Temp.
5. К пункту 1.

[ВДПУ]

понял. Большое спасиба)