Ответ:
const N = 10;
var a: array [1..N] of integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
for var i:=N downto 2 do
a[i] := a[i-1];
a[1] := 0;
writeln('После сдвига влево: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
end.
Объяснение: