Вариант 8: отчет. Дана последовательность из n вещественных чисел. Упорядочить последовательность по убыванию методом пузырька

Содержание:

[image]

Задача №1

Постановка задачи

[image]

Исходный текст программы

procedure task1;

const n=20;

var

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

i,j,tmp:integer;

s:string;

begin

Form1.Memo1.Lines.Add('До сортировки:');

s:='';

for i:=1 to n do begin

a[i]:=random(100);

s:=s+InttoStr(a[i]);

s:=s+' ';

end;

Form1.Memo1.Lines.Add(s);

Form1.Memo1.Lines.Add('После сортировки:');

for i:=1 to n do begin

for j:=1 to n-1 do begin

if a[j]