Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг влево без первого элемента.
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Результат:
4 0 -5 3 10 -4 -6 8 -10 1
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 0
Результат:
4 0 -5 3 10 -4 -6 8 -10 1
Answers & Comments
var i,n:byte;
k:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Исходный массив');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
write('Введите кол-во смещений: ');
read(n);
repeat
k:=a[2];
for i:=2 to 9 do
a[i]:=a[i+1];
a[10]:=k;
n:=n-1;
until n=0;
writeln('Результат:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.