Question

Создать массив из 15 элементов. Заполнить его случайными числами от 0 до 50. Поменять местами первый и последний, восьмой и седьмой тоже. Вывести на экран исходный массив. ПАСКАЛЬ

Answer 1

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(15,0,50); a.Println;
  Swap(a[0],a[14]); Swap(a[6],a[7]); a.Println
end.

Пример
15 47 4 20 36 42 27 40 2 45 26 26 48 25 17
17 47 4 20 36 42 40 27 2 45 26 26 48 25 15

Answer 2

Var a: array[0..15] of Integer;
i,z,x: Integer;
begin
for i:=0 to 14 do
begin
a[i]:=random(50);
writeln('Число ',i+1,': ',a[i]);
end;
z:=a[0];x:=a[14];
a[0]:=x;a[14]:=z;
z:=a[6];x:=a[7];
a[6]:=x;a[7]:=z;
for i:=0 to 14 do
begin
writeln('Число ',i+1,': ',a[i]);
end;
end.

Answer 3

В Pascal для создания массива из 15 элементов и заполнения его случайными числами от 0 до 50, а затем обмена определенных элементов массива, можно использовать следующий код:

pascalCopy code
program SwapArrayElements;

uses
  SysUtils;

const
  ARRAY_SIZE = 15;
  MIN_RANDOM_VALUE = 0;
  MAX_RANDOM_VALUE = 50;

var
  arr: array[1..ARRAY_SIZE] of Integer;
  i, temp: Integer;

procedure Swap(var a, b: Integer);
var
  temp: Integer;
begin
  temp := a;
  a := b;
  b := temp;
end;

begin
  // Заполнение массива случайными числами от 0 до 50
  Randomize; // Инициализация генератора случайных чисел
  for i := 1 to ARRAY_SIZE do
    arr[i] := Random(MAX_RANDOM_VALUE - MIN_RANDOM_VALUE + 1) + MIN_RANDOM_VALUE;

  // Вывод исходного массива на экран
  WriteLn('Исходный массив:');
  for i := 1 to ARRAY_SIZE do
    Write(arr[i], ' ');

  // Обмен местами первого и последнего элемента
  Swap(arr[1], arr[ARRAY_SIZE]);

  // Обмен местами восьмого и седьмого элемента
  Swap(arr[8], arr[7]);

  // Вывод измененного массива на экран
  WriteLn;
  WriteLn('Массив после обмена:');
  for i := 1 to ARRAY_SIZE do
    Write(arr[i], ' ');

  ReadLn;
end.

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