Ввести с клавиатуры три числа, и вывести их в порядке убывания.
Ввести с клавиатуры три числа, и вывести их в порядке убывания.
Гость
Ответ(ы) на вопрос:
ГостьСамое простое, чтоб без заморочек, занести в массив и отсортировать его
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]
Не нашли ответ?
Похожие вопросы