Question

дано А[1...20+і] (і номер варіанту). Перший додатний елемент поміняти місцями з максимальним (Паскаль)​

Answer 1

Ответ:

Дан во вложении.

Answer 2

Здається, ви просите про алгоритм на мові програмування Pascal, який би здійснював обмін першого додатнього елемента масиву з його максимальним елементом. Ось приклад такого алгоритму:

pascalCopy code
program SwapFirstPositiveWithMax;

const
  N = 20; // Розмір масиву

var
  A: array[1..N] of Integer; // Масив
  i, firstPositiveIndex, maxIndex, temp: Integer;

begin
  // Заповнення масиву відповідно до номеру варіанту
  for i := 1 to N do
    A[i] := i;

  // Знаходження індексу першого додатнього елемента
  firstPositiveIndex := -1;
  for i := 1 to N do
  begin
    if A[i] > 0 then
    begin
      firstPositiveIndex := i;
      Break;
    end;
  end;

  // Знаходження індексу максимального елемента
  maxIndex := 1;
  for i := 2 to N do
  begin
    if A[i] > A[maxIndex] then
      maxIndex := i;
  end;

  // Обмін елементів за допомогою додаткової змінної
  temp := A[firstPositiveIndex];
  A[firstPositiveIndex] := A[maxIndex];
  A[maxIndex] := temp;

  // Вивід масиву після обміну
  for i := 1 to N do
    Write(A[i], ' ');

end.

У цьому коді спочатку заповнюється масив A елементами від 1 до 20 + і (де і - номер варіанту). Потім знаходиться індекс першого додатнього елемента та індекс максимального елемента. Далі виконується обмін значень цих двох елементів за допомогою додаткової змінної temp. На виході ви отримаєте масив, в якому перший додатній елемент обміняний місцями з максимальним елементом.