Untitled
unknown
plain_text
a year ago
993 B
5
Indexable
program ShiftArrayLeft; var array1, shiftedArray: array[1..10] of integer; i: integer; firstElement: integer; begin // Задаем массив из 10 случайных чисел в интервале [-10, 10] Randomize; for i := 1 to 10 do array1[i] := Random(21) - 10; // Сохраняем первый элемент firstElement := array1[1]; // Циклический сдвиг влево без первого элемента for i := 2 to 10 do shiftedArray[i - 1] := array1[i]; // Первый элемент становится последним shiftedArray[10] := firstElement; // Выводим исходный и сдвинутый массивы 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