Pascal
а) Реализовать любую сортировку однострочного массива. Пользователь вводит кол-во элементов, а затем поэлементно заполняет массив. Пример: 5, 1,78,9,5,4; Ответ:1,4,5.9.78
б) Пользователь вводит два массива по аналогии с предыдущей задачей. Необходимо отсортировать оба и слить их, соблюдая сортировку. Пример входных данных: 3, 1,78,9, 2, 5,4; Ответ:1,4,5.9.78
а) Реализовать любую сортировку однострочного массива. Пользователь вводит кол-во элементов, а затем поэлементно заполняет массив. Пример: 5, 1,78,9,5,4; Ответ:1,4,5.9.78
б) Пользователь вводит два массива по аналогии с предыдущей задачей. Необходимо отсортировать оба и слить их, соблюдая сортировку. Пример входных данных: 3, 1,78,9, 2, 5,4; Ответ:1,4,5.9.78
Answers & Comments
Verified answer
Ответ:
program a;
type
Ta = array of Integer;
procedure Sort (var a: Ta);
var
i, j, jmax, atmp: Integer;
begin
for i := Low (a) to High (a) do begin
jmax := i;
for j := i + 1 to High (a) do begin
if a [j] < a [jmax] then // возрастание и убывание меняется знаком "<" или ">" в этом операторе
jmax := j;
end;
atmp := a [i];
a [i] := a [jmax];
a [jmax] := atmp;
end;
end;
var
n, i: Integer;
a: Ta;
begin
Write ('Количество элементов: ');
ReadLn (n);
SetLength (a, n);
for i := Low (a) to High (a) do
Read (a [i]);
Sort (a);
for i := Low (a) to High (a) do
Write (a [i], ' ');
ReadLn;
ReadLn;
end.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
program b;
type
Ta = array of Integer;
procedure Sort (var a: Ta);
var
i, j, jmax, atmp: Integer;
begin
for i := Low (a) to High (a) do begin
jmax := i;
for j := i + 1 to High (a) do begin
if a [j] < a [jmax] then // возрастание и убывание меняется знаком "<" или ">" в этом операторе
jmax := j;
end;
atmp := a [i];
a [i] := a [jmax];
a [jmax] := atmp;
end;
end;
procedure InArr (var a: Ta);
var
i, n: Integer;
begin
Write ('Количество элементов: ');
ReadLn (n);
SetLength (a, n);
for i := Low (a) to High (a) do
Read (a [i]);
end;
var
n, i, l1, l2: Integer;
a1, a2: Ta;
begin
Write ('Первый массив.');
InArr (a1);
Write ('Второй массив.');
InArr (a2);
l1 := Length (a1);
l2 := Length (a2);
SetLength (a1, l1 + l2);
for i := Low (a2) to High (a2) do
a1 [i + l1] := a2 [i];
Sort (a1);
for i := Low (a1) to High (a1) do
Write (a1 [i], ' ');
ReadLn;
ReadLn;
end.