Question

Переставьте первый элемент массива на последнее место.Вывести на экран исходный и преобразованный массив .
Язык программирования Паскаль.​

Answer 1

// Создаем массив из 10 случайных целых чисел от 1 до 100

var

array: array[1..10] of integer;

i, first: integer;

begin

randomize; // Инициализируем генератор случайных чисел

for i := 1 to 10 do

begin

array[i] := random(100) + 1; // Присваиваем массиву случайное значение

end;

// Выводим исходный массив на экран

writeln('Исходный массив: ');

for i := 1 to 10 do

begin

write(array[i], ' ');

end;

writeln;

// Переставляем первый элемент массива на последнее место

first := array[1]; // Сохраняем первый элемент

for i := 1 to 9 do

begin

array[i] := array[i + 1]; // Сдвигаем элементы массива на одну позицию влево

end;

array[10] := first; // Присваиваем последнему элементу массива первое значение

// Выводим преобразованный массив на экран

writeln('Преобразованный массив: ');

for i := 1 to 10 do

begin

write(array[i], ' ');

end;

writeln;

end.