Question

Даны действительные числа a1, …a17. Получить: a11, a12, …, a17, a1, a2, …, a10. Написать программу на языке Паскаль

Answer 1

begin

 var a := ReadArrReal(17);

 a := a[10:] + a[:10];

 a.Println;

end.

На языке PascalABC.NET

Answer 2

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

pascalCopy code
program RearrangeArray;

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

type
  RealArray = array[1..N] of Real;

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

procedure Rearrange(var arr: RealArray);
var
  i: Integer;
begin
  // Перемещаем a1..a10 в конец массива
  for i := 1 to 10 do
    Swap(arr[i], arr[i + 10]);

  // Перемещаем a11..a17 в начало массива
  for i := 11 to 17 do
    Swap(arr[i], arr[i - 10]);
end;

var
  i: Integer;
  numbers: RealArray;

begin
  // Вводим исходные числа
  writeln('Введите', N, ' действительных чисел:');
  for i := 1 to N do
    readln(numbers[i]);

  // Выполняем перестановку
  Rearrange(numbers);

  // Выводим результат
  writeln('Результат:');
  for i := 1 to N do
    write(numbers[i], ' ');

  readln;
end.

Программа запрашивает ввод 17 действительных чисел и затем переставляет элементы массива в соответствии с заданным порядком. Результат выводится на экран.