Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Даны 3 числа - a, b, c . Упорядочить их по возростанию. Плииз решите

Ответ оставил Гость

var a:array [1..100] of real;
i,j,n:integer;
t:real;
Begin
    n:=3;
    for i := 1 to n do
        read(a[i]);

    for i:=1 to n-1 do
      for j:=i+1 to n do
        if a[i]           t:=a[i];
           a[i]:=a[j];
           a[j]:=t;
        end;

    for i:= 1 to n do
        write(a[i], );
End.

универсальный метод через массивы. сейчас работает для трех элементов