Untitled

mail@pastecode.io avatar
unknown
plain_text
2 months ago
993 B
1
Indexable
Never
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.
Leave a Comment