Question

Напишите процедуру,которая переставляет три переданные ей числа в порядке возрастания.Пример:10 15 55 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.

Answer 2

const
Count = 3;
var a : array [1..Count] of Integer;
i, b, c: Integer;
begin
Writeln('Введите числа:');
for i := 1 to Count do
begin
Write(i ,': ');
Readln( a[i] );
end;
for i := 1 to Count do
for b := 1 to Count do
if a[i] < a[b] then
begin
c := a[i];
a[i] := a[b];
a[b] := c;
end;
for i := 1 to Count do
Write (a[i], ' ');
end.