Упорядочить массив по убыванию и по возрастанию

@Sanya383 · Регистрация: 06.10.2011

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

Дан действительный массив (An). Упорядочить массив по убыванию; по возрастанию.

@stimo15 · 06.12.2011, 18:16

Как по убыванию сделать, думаю сами дагодаетесь.

Pascal

program metod_puzirka;
uses crt;
const m=10;
var a:array[1..m] of integer;
    i,j,k:integer;
begin
clrscr;
writeln('massiv: ');
for i:=1 to m do
begin
a[i]:=random(9)+1;
write(a[i],' ');
end;
writeln;writeln;
 
for i:=1 to m-1 do
for j:=1 to m-i do
if a[j]>a[j+1] then begin
k:=a[j];
a[j]:=a[j+1];
a[j+1]:=k;
end;
 
writeln('massiv 2: ');
for i:=1 to m do
write(a[i],' ');
writeln;
readln
end.
end.

@Sanya383 · 06.12.2011, 18:18 **[ТС]**

Думаю да, спасибо

@Sanya383 1 / 1 / 0 Регистрация: 06.10.2011 Сообщений: 35
		1
	Упорядочить массив по убыванию и по возрастанию 06.12.2011, 18:05. Показов 2868. Ответов 2 Метки нет (Все метки) Дан действительный массив (An). Упорядочить массив по убыванию; по возрастанию. 0

@Sanya383 1 / 1 / 0 Регистрация: 06.10.2011 Сообщений: 35
	06.12.2011, 18:18 [ТС]	3
	Думаю да, спасибо 0

Упорядочить массив по убыванию и по возрастанию

Решение