Сдвиг элементов вправо на Pascal

Сдвиг элементов вправо...

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.



Просмотров: 2496
10.02.2015, 10:45 -

Категория: Статьи » Программирование » Pascal