Question

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг влево без первого элемента. пример: исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 результат: 4 0 -5 3 10 -4 -6 8 -10 1

Answer 1

Program CrazyCoder;

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.