Question

Даны два целочисленных массива состоящие из 6 элементов.Первый массив задан с клавиатуры,второй - с помощью датчика случайных чисел.Сформировать третий массив из значений первого и второго массивов и отсортировать его по не возрастанию.(Паскаль)

Answer 1

Ответ:

var a,b:array [1..6] of integer;

var c:array [1..12] of integer;

var i,k,j:integer;

begin

write('Введите 6 значений массива: ');

for i:=1 to 6 do begin

readln(a[i]);

b[i]:=random(1000);

c[i]:=a[i];

c[13-i]:=b[i];

end;

for i := 1 to 11 do

for j := 1 to 12-i do

if c[j] < c[j+1] then begin

k:=c[j];

c[j]:=c[j+1];

c[j+1]:=k;

end;

writeln('Полученный массив');

for i:=1 to 12 do writeln(c[i],' ')

end.

Объяснение:

Answer 2

===== PascalABC.NET =====

begin

 var c := ArrRandom(6, -99, 99) + ReadArrInteger('Вводи:', 6);

 c := c.Println.SortedDescending.ToArray;

 c.Print

end.

Answer 3

Вам нужно создать программу на языке Pascal, которая выполняет следующие шаги:

1. Запросить у пользователя значения для первого массива.
2. Сгенерировать случайные значения для второго массива.
3. Объединить оба массива в третий массив.
4. Отсортировать третий массив по убыванию.

Вот пример кода на языке Pascal, который выполняет описанные действия:

pascalCopy code
program MergeAndSortArrays;

const
  arraySize = 6;

type
  TIntArray = array[1..arraySize] of Integer;

var
  firstArray, secondArray, mergedArray: TIntArray;
  i: Integer;

// Процедура для заполнения первого массива с клавиатуры
procedure FillFirstArray(var arr: TIntArray);
var
  i: Integer;
begin
  writeln('Введите ', arraySize, ' целых чисел для первого массива:');
  for i := 1 to arraySize do
    readln(arr[i]);
end;

// Процедура для генерации случайных чисел для второго массива
procedure FillSecondArray(var arr: TIntArray);
var
  i: Integer;
begin
  Randomize;
  writeln('Сгенерированные случайные числа для второго массива:');
  for i := 1 to arraySize do
  begin
    arr[i] := Random(100); // Здесь генерируем случайное число от 0 до 99
    writeln(arr[i]);
  end;
end;

// Процедура для объединения массивов и сортировки по убыванию
procedure MergeAndSortArrays(var firstArr, secondArr, mergedArr: TIntArray);
var
  i: Integer;
begin
  for i := 1 to arraySize do
    mergedArr[i] := firstArr[i];
  
  for i := 1 to arraySize do
    mergedArr[i + arraySize] := secondArr[i];

  // Сортировка третьего массива по убыванию (методом "пузырька")
  for i := 1 to arraySize * 2 - 1 do
  begin
    for j := 1 to arraySize * 2 - i do
    begin
      if mergedArr[j] < mergedArr[j + 1] then
      begin
        temp := mergedArr[j];
        mergedArr[j] := mergedArr[j + 1];
        mergedArr[j + 1] := temp;
      end;
    end;
  end;
end;

// Процедура для вывода массива на экран
procedure PrintArray(arr: TIntArray);
var
  i: Integer;
begin
  writeln('Отсортированный массив:');
  for i := 1 to arraySize * 2 do
    writeln(arr[i]);
end;

begin
  FillFirstArray(firstArray);
  FillSecondArray(secondArray);
  MergeAndSortArrays(firstArray, secondArray, mergedArray);
  PrintArray(mergedArray);
end.

Обратите внимание, что в этом коде используется алгоритм сортировки пузырьком для сортировки третьего массива по убыванию. Этот алгоритм не является самым эффективным, но для массивов размером 6 элементов это будет работать нормально. Если вам нужно сортировать большие массивы, можно использовать более эффективные алгоритмы сортировки, такие как быстрая сортировка или сортировка слиянием.