Задача на pascal

[pasha1993]

Всем привет, кто может помочь решить задачу на pascal отзовитесь, вообщем задача такая:
В начальный момент в массиве записаны по порядку числа от 1 до N (i-ое число - на i-ом месте). С массивом проделывают последовательно следующую операцию: берут два числа, стоящих на местах A и B, и меняют их местами. Требуется напечатать массив после выполнения этих операций.

[Arigato]

В чем сложность?

[pasha1993]

Сложность в том что я учил только теорию по pascal, а код написать на нем даже простой не получается.

[Arigato]

Ну вот и пробуйте. Если данная задача не выходит, сделайте для начала что-то самое элементарное (типа A+B). Если и такое не получится, то я сомневаюсь, что Вы теорию учили.

[Serge_Bliznykov]

согласен с вышесказанным — пока не видно, что Вы что-то пытались сделать! Уже хотя бы однотипные задачи через поиск нашли и посмотрели. А так - голословные утверждения..

А вообще задачи НАИПРОСТЕЙШАЯ!
Решается примерно так.
Опишите необходимые переменные (в первую очередь - сам массив).
в основном теле программе обеспечьте заполнение массива.
(цикл по i от 1 до N do Massiv[i] := i; )
Обеспечьте задание (или ввод) переменных A и B
потом операция замены местами элементов с индексами A и B
подскажу, в коде на паскале это будет выглядеть так:

   TempElement := Massiv[A];
   Massiv[A] := Massiv[B];
   Massiv[B] := TempElement;

после выведите содержимое массива на экран.

что именно вызывает трудности?!!

[_-Re@l-_]

что именно вызывает трудности?!!

подозреваю, что теория...

сделайте для начала что-то самое элементарное (типа A+B)

Помогу ему(сойти с ума)

Uses CRT;
Var
   A,B:Integer;
Begin
     Clrscr;
     Write('A = ');
     Readln(A);
     Write('B = ');
     Readln(B);
     asm
     mov ax,0
     add ax,a
     add ax,b
     mov a,ax
     end;
     Write('Summa = ',A);
     Readln;
End.

Прошу прощения за два сообщения подряд...Раскаиваюсь..

From Stilet: Принято. Поправил.