Question

Даны целое число n и вектор X с элементом n: Составить блок-схему получения и печати нового вектора Y и написать программу на языке Turbo Pascal. элементы которого получаются из вектора, приписывая в нем первому элементу значение величайшего элемента вектора, а величайшему элементу-значение первого элемента:

Answer 1

Вот самой надо было сохранилось держи

Answer 2

Давайте сначала опишем шаги для решения задачи и составим блок-схему. Затем я предоставлю вам пример программы на Turbo Pascal.

1. Найти максимальный элемент вектора X и сохранить его значение. 2. Пройти по каждому элементу вектора X. 3. Если текущий элемент - первый элемент вектора X, то присвоить этому элементу значение максимального элемента. 4. Если текущий элемент - максимальный элемент вектора X, то присвоить этому элементу значение первого элемента. 5. Сформировать новый вектор Y с измененными значениями. 6. Вывести вектор Y.

Блок-схема может выглядеть примерно следующим образом:

  +-------------------+
  | Начало программы  |
  +-------------------+
           |
           v
  +-------------------+
  | Инициализация     |
  | переменных        |
  +-------------------+
           |
           v
  +-------------------+
  | Найти максимальный|
  | элемент вектора X |
  +-------------------+
           |
           v
  +-------------------+
  | Пройти по элементам|
  | вектора X          |
  +-------------------+
           |
           v
  +-------------------+
  | Изменить значения  |
  | элементов вектора Y|
  +-------------------+
           |
           v
  +-------------------+
  | Вывести вектор Y  |
  +-------------------+
           |
           v
  +-------------------+
  | Конец программы    |
  +-------------------+

Пример программы на Turbo Pascal:

program ModifyVector;

const
  MAX_SIZE = 100;

var
  X, Y: array[1..MAX_SIZE] of integer;
  n, maxElement, i: integer;

begin
  // Ввод размера вектора
  write('Введите размер вектора: ');
  readln(n);

// Ввод элементов вектора X
  write('Введите элементы вектора X: ');
  for i := 1 to n do
    read(X[i]);

// Найти максимальный элемент вектора X
  maxElement := X[1];
  for i := 2 to n do
  begin
    if X[i] > maxElement then
      maxElement := X[i];
  end;

// Изменить значения элементов вектора Y
  for i := 1 to n do
  begin
    if i = 1 then
      Y[i] := maxElement
    else if X[i] = maxElement then
      Y[i] := X[1]
    else
      Y[i] := X[i];
  end;

// Вывести вектор Y
  writeln('Вектор Y:');
  for i := 1 to n do
    write(Y[i], ' ');

readln;
end.

Обратите внимание, что этот код предполагает, что векторы X и Y имеют размерность не более 100 элементов. Вы можете изменить значение `MAX_SIZE` в соответствии с вашими требованиями.