Untitled
unknown
plain_text
a year ago
925 B
6
Indexable
program ShiftArrayRight; var array1, shiftedArray: array[1..10] of integer; i: integer; lastElement: integer; begin // Задаем массив из 10 случайных чисел в интервале [-10, 10] Randomize; for i := 1 to 10 do array1[i] := Random(21) - 10; // Сохраняем последний элемент lastElement := array1[10]; // Циклический сдвиг вправо for i := 10 downto 2 do shiftedArray[i] := array1[i - 1]; // Последний элемент становится первым shiftedArray[1] := lastElement; // Выводим исходный и сдвинутый массивы writeln('Исходный массив:'); for i := 1 to 10 do write(array1[i], ' '); writeln; writeln('Сдвинутый массив вправо:'); for i := 1 to 10 do write(shiftedArray[i], ' '); end.
Editor is loading...
Leave a Comment