Вывести последовательность действительных чисел

@aleksisk2 · Регистрация: 08.02.2013

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

Задание : Дана последовательность действительных чисел a1,a2, .... an(n>=2 и заранее неизвестно). Если последовательность упорядочена по невозрастанию, то оставить ее без изменений , иначе получить последовательность отсортированную по невозрастанию.

@JuriiMW · 22.11.2021, 05:11

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

Если последовательность упорядочена по невозрастанию, то оставить ее без изменений , иначе получить последовательность отсортированную по невозрастанию.

По любому получается, что нужно отсортировать и вывести.
Тогда проще так:

Pascal

type t=^p;p=record a,n:integer;l,r:t;end;
procedure add(x:integer;var a:t);begin if a=nil then begin new(a);a^.a:=x;a^.n:=1;a^.l:=nil;a^.r:=nil;end else if x<a^.a then add(x,a^.l) else if x>a^.a then add(x,a^.r) else inc(a^.n);end;
procedure print(a:t);var i:integer;begin if a^.r<> nil then print(a^.r);for i:=1 to a^.n do write(#32,a^.a);if a^.l<>nil then print(a^.l);end;
var
  n,i,x:integer;a:t;
begin
  read(n);a:=nil;for i:=1 to n do begin read(x);add(x,a);end;print(a);
end.

@aleksisk2 0 / 0 / 0 Регистрация: 08.02.2013 Сообщений: 16
		1
	Вывести последовательность действительных чисел 21.11.2021, 17:54. Показов 440. Ответов 1 Метки pascal, pascal abc net (Все метки) Задание : Дана последовательность действительных чисел a1,a2, .... an(n>=2 и заранее неизвестно). Если последовательность упорядочена по невозрастанию, то оставить ее без изменений , иначе получить последовательность отсортированную по невозрастанию. 0

	22.11.2021, 05:11