Переставьте первый элемент массива на последнее место.Вывести на экран исходный и преобразованный массив .
Язык программирования Паскаль.
Ответы
// Создаем массив из 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.