1. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54, 33]. Размер произвольный.

Question

Информатика

Наста

27 сентября, 15:46

1. Упорядочить данную последовательность по убыванию. Массив задан датчиком случайных чисел на интервале [-54, 33]. Размер произвольный.

+2

Ответы (1)

Знаете ответ?

Никоша · Answer 1

Uses crt;

const n=10;

var a:array[1 ... n] of integer;

i, p:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (87) - 54;

writeln (a[i]) ;

end;

writeln;

repeat

p:=0;

for i:=1 to n-1 do

if a[i]
begin

p:=1;

a[i]:=a[i]+a[i+1];

a[i+1]:=a[i]-a[i+1];

a[i]:=a[i]-a[i+1];

end;

until p=0;

for i:=1 to n do

writeln (a[i]) ;

end.