Question

Складіть та запишіть код процедури, яка обмінює перший та останній елементи масиву, що складається з 10 цілих чисел, підручник ривкінд 9 клас

Answer 1

Ответ:

код на лазарус

Объяснение:

procedure SwapArrayElements(var arr: array of integer);

var

 temp: integer;

begin

 if Length(arr) < 2 then Exit; // якщо масив має менше 2 елементів, нічого не робити

 temp := arr[0];               // зберігаємо значення першого елементу в змінній temp

 arr[0] := arr[High(arr)];     // присвоюємо першому елементу значення останнього елементу

 arr[High(arr)] := temp;       // присвоюємо останньому елементу значення змінної temp

end;