Расставить цифры в порядке убывания.

@warning · Регистрация: 31.03.2010

Студворк — интернет-сервис помощи студентам

Нужно расставить любые пять цифр в порядке убывания. Помогите, пожалуйста.

@кот Бегемот · 31.03.2010, 11:33

Сообщение от warning

Нужно расставить любые пять цифр в порядке убывания. Помогите, пожалуйста.

почитайте тему "сортировка массива в порядке убывания"
поверьте, это очень просто.
а не хватит сил прочесть, поищите в поиске задачи с тем же названием, их здесь сотни

@NIch · 31.03.2010, 11:37

Pascal

 //Сортировка пузырьком
  for j:=1 to 20 do
   for i:=1 to 20-j do
    if Arr[i] > Arr[i+1] then
    begin
     t := Arr[i];
     Arr[i] := Arr[i+1];
     Arr[i+1] := t;
    end;

@кот Бегемот · 31.03.2010, 11:39

NIch, цифр всего 5

@Puporev · 31.03.2010, 11:49

Нужно расставить любые пять цифр в порядке убывания.

Понял дословно.

Pascal

uses crt;
var s:set of 0..9;
    c,i:byte;
begin
clrscr;
writeln('Введите 5 разных цифр:');
s:=[];
for i:=1 to 5 do
 begin
  repeat
   readln(c);
  until not (c in s);
  s:=s+[c];
 end;
writeln('Цифры по убыванию:');
for i:=9 downto 0 do
if i in s then write(i,' ');
readln
end.

@кот Бегемот · 31.03.2010, 14:08

приятный алгоритм

@warning · 31.03.2010, 15:10 **[ТС]**

Спасибо))

@warning 2 / 2 / 1 Регистрация: 31.03.2010 Сообщений: 14
		1
	Расставить цифры в порядке убывания. 31.03.2010, 11:28. Показов 6339. Ответов 6 Метки нет (Все метки) Нужно расставить любые пять цифр в порядке убывания. Помогите, пожалуйста. 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	31.03.2010, 11:33	2
	Сообщение от warning Нужно расставить любые пять цифр в порядке убывания. Помогите, пожалуйста. почитайте тему "сортировка массива в порядке убывания" поверьте, это очень просто. а не хватит сил прочесть, поищите в поиске задачи с тем же названием, их здесь сотни 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	31.03.2010, 11:39	4
	NIch, цифр всего 5 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	31.03.2010, 14:08	6
	приятный алгоритм 0

@warning 2 / 2 / 1 Регистрация: 31.03.2010 Сообщений: 14
	31.03.2010, 15:10 [ТС]	7
	Спасибо)) 0

Опции темы