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

@Alexander14 · Регистрация: 19.09.2012

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

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

@!.Ap0$T0L.! · 23.11.2012, 23:19

Pascal

const n=10;
var a:array[1..100000] of longint;
    i,j,t :longint;
begin
  randomize;
  for i :=1 to n do a[i]:=random(100)+1;
  writeln('Màññèâ :');
 
  write(a[1]);
  for i :=2 to n do write(' ',a[i]); writeln;
 
  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;
 
  writeln('Îòñîðòèðîâàííûé ìàññèâ :');
  write(a[1]);
  for i :=2 to n do write(' ',a[i]);
  writeln;
end.

@Leshak · 23.11.2012, 23:21

!.Ap0$T0L.!, это не списки ... это статический одномерный массив.

@Alexander14 · 23.11.2012, 23:31 **[ТС]**

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

!.Ap0$T0L.!, это не списки ... это статический одномерный массив.

А как правильно тогда будет?Просто тему пропустил,а сдавать надо..

Добавлено через 6 минут
Забыл дописать сразу,извините, надо решать динамично, с помощью ^ .

@Alexander14 0 / 0 / 0 Регистрация: 19.09.2012 Сообщений: 9
		1
	Сформировать список целых чисел и упорядочить их по неубыванию 23.11.2012, 23:06. Показов 1746. Ответов 3 Метки нет (Все метки) Сформировать список целых чисел и упорядочить их по неубыванию; Помогите пожалуйста.. 0

@Leshak 261 / 236 / 161 Регистрация: 10.12.2011 Сообщений: 513
	23.11.2012, 23:21	3
	!.Ap0$T0L.!, это не списки ... это статический одномерный массив. 0

@Alexander14 0 / 0 / 0 Регистрация: 19.09.2012 Сообщений: 9
	23.11.2012, 23:31 [ТС]	4
	Сообщение от Leshak !.Ap0$T0L.!, это не списки ... это статический одномерный массив. А как правильно тогда будет?Просто тему пропустил,а сдавать надо.. Добавлено через 6 минут Забыл дописать сразу,извините, надо решать динамично, с помощью ^ . 0

Опции темы

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

Решение