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.
*Создавать новый документа имея при этом шаблоны. *Возможность работы в нескольких документах. *Автоматическая проверка орфографии. *Расширенные возможности по форматированию текста. *Возможность отправки готового документа.
Дополнительные
*Удобное выделение текстовых фрагментов *Расширенный буфер обмена;Вставка скриншота *Улучшение читаемости *Применение водяного знака *Повтор последней команды *Простановка знаков ударения *Настройка верхней ленты под личные нужды *Быстрое выделение фрагмента текста
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
