Question

5. Составьте и запишите программу на ПАСКАЛЕ заполнения одномерного массива, состоящего из 10 элементов, случайными числами из диапазона от 1 до 10, упорядочивания элементов массива и последующего вывода массива на экран.

Answer 1

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

begin

 var a := ArrRandom(10, 1, 10);

 a.Println;

 a.Sort;

 a.Println

end.

Answer 2

Программа на Паскале для заполнения, упорядочивания и вывода одномерного массива из 10 случайных чисел в диапазоне от 1 до 10 может выглядеть следующим образом:

pascalCopy code
program ArraySorting;

const
  N = 10; // Количество элементов в массиве

var
  arr: array[1..N] of integer;
  i, j, temp: integer;

begin
  // Заполнение массива случайными числами от 1 до 10
  randomize; // Инициализация генератора случайных чисел
  for i := 1 to N do
    arr[i] := random(10) + 1; // Генерация случайных чисел от 1 до 10

  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  // Упорядочивание массива (пузырьковая сортировка)
  for i := 1 to N - 1 do
    for j := 1 to N - i do
      if arr[j] > arr[j + 1] then
      begin
        // Обмен элементов массива
        temp := arr[j];
        arr[j] := arr[j + 1];
        arr[j + 1] := temp;
      end;

  // Вывод отсортированного массива
  writeln;
  writeln('Отсортированный массив:');
  for i := 1 to N do
    write(arr[i], ' ');

  readln;
end.

Эта программа создает массив arr из 10 элементов, заполняет его случайными числами от 1 до 10, сортирует массив с использованием пузырьковой сортировки и затем выводит исходный и отсортированный массивы на экран.