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

Ответы 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.
    • Автор:

      josepbvat
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years