uses GRAPHABC;
const
N=5;
type
array1 = array[1..N] of integer;
var
arr: array1;
procedure gist(var arr: array1);
var w: integer;
begin
setwindowsize(600,300);
for i:integer:=1 to n do
begin
write(arr[i]:4);
w:=(windowwidth-20)div n;
Pen.Width := 10;
Pen.Color := clRandom;
line(i*20,100,i*20,100-arr[i]);
end;
write(' ');
end;
procedure sortirovka(var arr: array1);
var
index_max, max: integer;
begin
for i:integer:=n downto 1 do
begin
index_max:=i;
max:=arr[i];
for j:integer:=1 to i-1 do
if arr[j] > max then
begin
index_max:=j;
max:=arr[index_max];
end;
if index_max <> i then
begin
arr[index_max]:=arr[i];
arr[i]:=max;
end;
gist(arr);
end;
end;
begin
Window.Title := 'Сортировка массива';
writeln('Элементы массива: ');
for i:integer:=1 to n do
read(arr[i]);
sortirovka(arr);
writeln;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.