• Напишите программу, которая выполняет циклический сдвиг части массива, начиная с элемента с номером K и заканчивая элементом с номером M(включительно), влево на R элементов.

Ответы 1

  • var   i,k,m,r,p,j:integer;   a:array[1..10]of integer;beginwriteln('Массив: ');for i:=1 to 10 do  begin  a[i]:=random(10);  write(a[i],' ');  end;writeln;write('Введите K,M,R: ');readln(k,m,r);for i:=1 to r do  begin  j:=k;  p:=a[j];  while j<m do    begin    a[j]:=a[j+1];    j:=j+1    end;  a[j]:=p;  end;writeln('Измененный массив:');for i:=1 to 10 do  write(a[i],' ');  end.
  • Добавить свой ответ

Войти через Google

или

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

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

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