Ответы на вопрос:
Самое простое, чтоб без заморочек, занести в массив и отсортировать его 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]< a[i] then begin p: =a[i]; a[i]: =a[j]; a[j]: =p; end; for i: =1 to 3 do write(a[i],' ') end.
Популярно: Информатика
-
сабина42314.09.2021 01:03
-
mokhovayaarina30.11.2020 03:40
-
ivettapopova04504.05.2020 07:54
-
olgagk125.04.2022 23:21
-
DIMITMARASIT11.02.2023 09:43
-
Andry21120817.04.2022 13:24
-
harchuk18100218.07.2020 00:43
-
katabelja22.09.2020 02:07
-
mgurbo14.11.2020 12:00
-
zakriev76726.05.2020 10:22