Выполнить циклический сдвиг массива влево без первого элемента

@FARAON166 · Регистрация: 26.10.2010

Author24 — интернет-сервис помощи студентам

Пожалуйста, помогите решить вот эту задачу.

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

Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе

@Das Gespenst · 28.10.2012, 20:50

Вот:

Pascal

program z;
uses crt;
var i,n:byte; k:integer;
a:array [1..10] of integer;
begin
     clrscr;
     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.

@FARAON166 0 / 0 / 0 Регистрация: 26.10.2010 Сообщений: 33
		1
	Выполнить циклический сдвиг массива влево без первого элемента 28.10.2012, 15:24. Показов 9212. Ответов 1 Метки нет (Все метки) Пожалуйста, помогите решить вот эту задачу. Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и выполнить циклический сдвиг влево без первого элемента. Пример: Исходный массив: 4 -5 3 10 -4 -6 8 -10 1 0 Результат: 4 0 -5 3 10 -4 -6 8 -10 1 Так же попрошу писать не сильно заумным кодом) так как это всё нужно для сестры которая учится в 9 классе 0

	28.10.2012, 20:50

Выполнить циклический сдвиг массива влево без первого элемента

Решение