Даны 3 числа - a, b, c . Упорядочить их по возростанию. Плииз решите
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.
универсальный метод через массивы. сейчас работает для трех элементов
Другие вопросы из категории
Компьютер – универсальное средство обработки информации.
или компьютером, называется...
А) куча
Б) логин
В) catch
Г) капча
Винчестер
ОЗУ
Дискета
Сд-ром
Читайте также
этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2)Даны вещественные числа х и у, не равные друг другу. Меньшее из этих двух чисел заменить половиной их суммы, а большее — их удвоенным произведением.
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
2) дано четырёхзначное число. Что больше: произведение цифр числа или их утроенная сумма. pascal ABC
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат