Question

Напишите процедуру,которая переставляет три переданные ей числа в порядке возрастания.
Пример:
10 15 5
5 10 15

Answer 1

program Program1;
var arr: array[1..3] of real;
i, z, h: integer;
procedure swap(var x, y: real);
var t: real;
begin t := x; x := y; y := t
end;
begin
writeln('Введите три числа:');
for i := 1 to 3 do read(arr[i]);
for h := 1 to 3 - 1 do
for z := 1 to 3 - h do
if arr[z] > arr[z + 1] then
swap(arr[z], arr[z + 1]);
for i := 1 to 3 do write(arr[i], ' ');
end.