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

Question

Информатика

Дануся

7 февраля, 13:30

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

+2

Ответы (1)

Знаете ответ?

Андрон · Answer 1

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.

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