Задача в Паскале abc ...дан одномерный массив из 5 чисел,нужно вывести на экран эти элементы но передвинутые влево на одно место место,а тк первый элемент мы не можем подвинуть еще левее,то его нужно разместить на самое последнее место.То есть,к примеру,вводим числа " 5 7 9 6 8 " и в итоге должно получится так " 7 9 6 8 5"
program ShiftArray; var arr: array[1..5] of Integer; i, temp: Integer; begin // Ввод элементов массива writeln('Введите 5 чисел:'); for i := 1 to 5 do read(arr[i]);
// Сдвигаем элементы влево на 1 место temp := arr[1]; for i := 1 to 4 do arr[i] := arr[i + 1]; arr[5] := temp;
// Вывод элементов массива writeln('Элементы массива после сдвига:'); for i := 1 to 5 do write(arr[i], ' '); end.
program ShiftArray;
var
arr: array[1..5] of Integer;
i, temp: Integer;
begin
// Ввод элементов массива
writeln('Введите 5 чисел:');
for i := 1 to 5 do
read(arr[i]);
// Сдвигаем элементы влево на 1 место
temp := arr[1];
for i := 1 to 4 do
arr[i] := arr[i + 1];
arr[5] := temp;
// Вывод элементов массива
writeln('Элементы массива после сдвига:');
for i := 1 to 5 do
write(arr[i], ' ');
end.