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

Для запуска генератора случайных чисел используем процедуру randomize:

var

i, N : integer;

A : array[1..N] of integer;

end;

begin

randomize;

for i := 1 to N

A = random(N);

end.

-------
Пример программы на Pascal, содержащей заполнение массива случайными числами и алгоритм сортировки пузырьком:

```
program bubbleSort;
const
  N = 10; // размер массива
var
  arr: array[1..N] of integer;
  i, j, temp: integer;
 
begin
  // заполнение массива случайными числами
  randomize;
  for i := 1 to N do
    arr := random(50); // случайное число от 0 до 50
 
  // вывод неотсортированного массива
  writeln('Неотсортированный массив:');
  for i := 1 to N do
    write(arr, ' ');
  writeln;
 
  // алгоритм сортировки пузырьком
  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('Отсортированный массив:');
  for i := 1 to N do
    write(arr, ' ');
  writeln;
end.
```

Пример вывода программы:

```
Неотсортированный массив:
20 13 28 8 21 24 24 0 46 35
Отсортированный массив:
0 8 13 20 21 24 24 28 35 46
```