Даны 3 числа - a, b, c . Упорядочить их по возростанию. Плиз решите с помощью Pascal !!!!
5-9 класс
|
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]<a[j] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
for i:= 1 to n do
write(a[i],'' );
End.
универсальный метод через массивы. сейчас работает для трех элементов
Другие вопросы из категории
зрители. На соревнованиях по волейболу было 28 мальчиков. Ни одна из девочек не пришла смотреть на баскетбол. Всего на соревнованиях по баскетболу было 54 мальчика, из них 38 не участники. Среди зрителей 48 мальчиков и 33 девочки. Участников баскетболистов 50 человек. Разберитесь, кто есть кто?
Читайте также
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат