1. Информатика
  2. Упорядочить целочисленный массив

Упорядочить целочисленный массив х по убыванию

Даниад Даниад    3   09.03.2019 15:00    2

Ответы
Kostolom2005 Kostolom2005  24.05.2020 11:16

var x:array[1..n] of integer; (n сам задай)

i,j,k:integer;

 

begin

For i:=1 to n do
Readln(x[i]);

For j:=1 to n-1 do
For i:=1 to n-j do
If X[i]<X[i+1] then begin k:=X[i]; X[i]:=X[i+1]; X[i+1]:=k; end;

For i:=1 to n do
Writeln(X[i]);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
kamilamila2005 kamilamila2005  26.11.2020 18:16
Дана таблица истинности для некоторого выражения. Какое из перечисленных выражений соответствует этой таблице?AB?000011100110¬A ∧ BA ∨ ¬BA ∧ ¬B¬A ∨ B​...
EseniyaMaster EseniyaMaster  26.11.2020 18:16
На шоссе расположены пункты K и R, удалённые друг от друга на 28 км. Мотоциклист выехал из пункта R в направлении, противоположном K, со скоростью 56 км/ч. Составь математическую...
eka445590226 eka445590226  26.11.2020 18:15
Как НЕ может выглядеть шапка таблицы истинности для выражения ¬A ∧ ¬B ∨ C? ABC¬A¬B¬A ∧ ¬B¬A ∧ ¬B ∨ CBCA¬B¬A¬A ∧ ¬B¬A ∧ ¬B ∨ CACB¬A¬B¬A ∧ ¬B¬A ∧ ¬B ∨ CABC¬A¬B¬B ∨ C¬A ∧ ¬B ∨ C​...
kbbekvwo kbbekvwo  26.11.2020 18:15
Даны простые высказывания: 1) A=«Число 23 — чётное число». 2) B=«Волк — хищное животное». Найдите значение логического выражения A ∨ B. Значения логических переменных: 0, 1 (0...
ЛОЛКЕК12346 ЛОЛКЕК12346  04.06.2019 13:10
Разветвляющийся алгоритм. напишите программу, которая находит сумму цифр двузначного числа и определяет кратность этой суммы 3 или 5. heeelp буду !...
sashaaaa5 sashaaaa5  04.06.2019 13:10
Решите . стоят 4 дома, в них живут- семен,николай,артур,роман они : врач,художник, егерь,тренер. 1)художник рядом с тренером 2)врач рядом с художником 3)егерь левее врача 4)тренер...
ggg294 ggg294  01.02.2021 08:58
Интерфейс проекта По рисунку определи тип пользовательского интерфейса.НазадПроверить​...
dianabalaganska dianabalaganska  01.02.2021 08:57
1)Для чего нужны повороты? 2)Какое предназначение имеет?​...
Lubov080301 Lubov080301  01.02.2021 08:53
ОГЭ 9 класс информатикас решением + по пунктам 1,2,3,4​.​...
Каркушааа Каркушааа  04.06.2021 15:07
Ввести три числа и найти два из них сумма которых больше, чем сумма остальных пар. Python...

Популярные вопросы