Вариант 8: отчет. Дана последовательность из n вещественных чисел. Упорядочить последовательность по убыванию методом пузырька
- ID: 18220
- 3 страницы
Содержание:
[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]