Даны 3 числа - a, b, c . Упорядочить их по возростанию. Плииз решите
Даны 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]
Не нашли ответ?
Похожие вопросы