Сортировка массивов по возрастанию и по убыванию. Массив задается от

датчика случайных чисел random (). Сортировать один и тот же исходный

массив и по убыванию и по возрастанию значений элементов.

Question

Информатика

Пимен

8 февраля, 15:40

Сортировка массивов по возрастанию и по убыванию. Массив задается от

датчика случайных чисел random (). Сортировать один и тот же исходный

массив и по убыванию и по возрастанию значений элементов.

+2

Ответы (1)

Знаете ответ на вопрос?

Настасьюшка · Answer 1

Var i, j, p : integer; a:array[1 ... 10] of integer;

begin

for i:=1 to 10 do

begin

a[i]:=random (20) + 1;

writeln (a[i]) ;

end;

writeln ('Массив по возрастанию') ;

for i:=1 to 10 do

for j:=1 to 10 do begin

if a[i]
p:=a[i];

a[i]:=a[j];

a[j]:=p;

end; end;

for i:=1 to 10 do

writeln (a[i]) ;

writeln ('Массив по убыванию') ;

for i:=1 to 10 do

for j:=1 to 10 do begin

if a[i]>a[j] then begin

p:=a[i]; a[i]:=a[j]; a[j]:=p; end; end;

for i:=1 to 10 do writeln (a[i]) ;

readln; end.