ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

Код:

program Perestanovka;
	  var N,I:byte;
	
    procedure Swap(var a,b:byte);
      var c:byte;
    begin 
          c:=a;
          a:=b;
          b:=c 
    end;

begin
  write('N=');
  readln(N);
  write('I=');
  readln(I);
  Swap (N,I); 
  writeln('N=',N);
  writeln('I=',I);
end.

Вот смотри. Создали процедуру swap, которая меняет содержимое двух целочисленных ячеек местами. В месте мы можем вызвать её указав в скобках необходимые параметры - в данном случае переменные, которые должны быть обменяны. Если вызвать Swap (N,I); ещё раз, то значения станут первоначальными. Если не понятно ещё что-то, то проще уже учебник взять, легко и самому понять.