Question

Значения переменных X, Y, Z поменять местами так, чтобы они оказались упорядоченными по возрастанию.

Answer 1

var a: array[1..3] of integer;  
   i,j,b: integer;
begin
writeln ('Vvedite 3 chisla');
readln (a[1],a[2],a[3]);
  for i:= 1 to 2 do for j:= 1 to 3-i do if a[j]>a[j+1] then
begin
 b:= a[j];
 a[j]:= a[j+1];
 a[j+1]:= b;
end;
   for i:= 1 to 3 do write (a[i],' ');
readln;
end.