Ввести с клавиатуры три числа, и вывести их в порядке убывания.

Question

Информатика

Македоний

13 марта, 07:35

Ввести с клавиатуры три числа, и вывести их в порядке убывания.

+2

Ответы (1)

Знаете ответ на вопрос?

Илюня · Answer 1

Самое простое, чтоб без заморочек, занести в массив и отсортировать его

var

a:array[1 ... 3]of real;

i, j:integer;

p:real;

begin

for i:=1 to 3 do

begin

write ('Введите число: ') ;

readln (a[i]) ;

end;

for i:=1 to 3 do

for j:=1 to 3 do

if a[j]
begin

p:=a[i];

a[i]:=a[j];

a[j]:=p;

end;

for i:=1 to 3 do write (a[i],' ')

end.