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

1

Ответы и объяснения

Лучший Ответ!
2013-02-21T17:46:15+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

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]<a[j] then begin
           t:=a[i];
           a[i]:=a[j];
           a[j]:=t;
        end;

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

 

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