Регистрация - Система программирования PascalABC.NET

// Сдвиг влево в массиве
const N = 10;
var
  a: array [1..N] of integer;
begin
  for var i:=1 to N do
    a[i] := Random(100);
  for var i:=1 to N do
    write(a[i],' ');
  writeln;
//-----------------------------
  for var i:=1 to N-1 do
    a[i] := a[i+1];
  a[N] := 0;
//-----------------------------
  write('После сдвига: ');
  for var i:=1 to N do
    write(a[i],' ');
  writeln;
end.

Баннеры