Циклический сдвиг

[Санеk]

Заполнить массив из 12 элементов случайными числами в интервале [-12..12] и выполнить циклический сдвиг ВПРАВО на 4 элемента.
Втот пример решения что тут не правильно?

program qq;
const N=12;
var A:array [1..N] of integer;
i,c:integer;
begin
writeln('Исходный массив');
for i:=1 to N do begin
a[i]:=  random (21)-12;
write(a[i]:4);
end;
c:=A[N];
for i:=N downto 2 do A[i]:=A[i-1];
A[1]:=c;
writeln;
writeln('Обратный массив');
for i:=1 to N do
write(a[i]:4);
end.

если можно напишите мою ошибку




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

1) ошибка в диапазоне задания случайных величин. нужно чтобы и -12 и 12 входили..
поэтому надо так:

a[i] :=  random (25)-12;

2) у вас написан код для циклического сдвига вправо на 1 элемент.
а надо на четыре!
возьмите сдвиг в цикл:

const Cnt = 4;
...
var j : integer;
...
  for j:=1 to Cnt do begin
      c:=A[N];
      for i:=N downto 2 do A[i]:=A[i-1];
      A[1]:=c;
  end;

[Санеk]

Сергей я папробовал но чтото у меня не получилось. Немогли бы вы полностью написать програму?

[Serge_Bliznykov]

да пожалуйста. (она Вами уже полностью и написана!)

program qq;
const
  N = 12; {размер исходного массива}
  Cnt = 4; {на сколько элементов сдвигать}
var
  A: array[1..N] of integer;
  i, c, j: integer;
begin
  Randomize;
  writeln('Исходный массив');
  for i := 1 to N do begin
    A[i] := -12 + random(25);
    write(a[i]: 4);
  end;
  writeln;
 {собственно сдвиг}
  for j := 1 to Cnt do begin
    c := A[N];
    for i := N downto 2 do A[i] := A[i - 1];
    A[1] := c;
  end;

  writeln('Массив после циклического сдвига вправо:');
  for i := 1 to N do
    write(a[i]: 4);

  writeln;
  readln;
end.

[Санеk]

Спасибо вам Сергей

[Aleksandr H.]

никита134245 А первое сообщение темы прочитать не дано?

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

program lab9;
uses crt;
const n=10;
	cnt=2;
type mas=array[1..n] of integer;
var a:mas;
	i,j,k,min,c:integer;
begin
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i] := random(100);
  a[i] := 50 - a[i];
  write (a[i]:4);
 end;
writeln;
min:=a[1];
for i:=1 to n do
 if min>=a[i] then
  begin
   min:=a[i];
   c:=i;
  end;
writeln(min,' ',c);
for i:=n downto c+2 do
 a[i]:=a[i-2];
a[c]:=min;a[c+1]:=min;
{for j:=c to cnt do
 begin
  k:=a[n];
   for i:=1 downto 2 do
    a[i]:=a[i-1];
   a[1]:=k;
 end;}
for i:=1 to n do
 write(a[i]:4);
readln;
end.

[min@y™]

Я чот не понял, вы тут все чо, данные перемещаете, штоли?
Указатели? Какие указатели??!!11 Не, не слышали!

[Aleksandr H.]

Просвещай, чо и куда указывать

[Serge_Bliznykov]

Никита, поиск минимального у Вас написан неверно.
рекомендую его переписать вообще проще:

 writeln;
 {поиск последнего минимального}
 c:=1;
 for i:=1 to n do
    if a[c]>=a[i] then c:=i;

кстати, при таком подходе переменная min вообще не нужна, можно её выкинуть!



что же касается второй части задания, рекомендую такой код:

 {сдвиг}
 for i:=n downto c+cnt+1 do
   a[i] := a[i-2];
   
 {присвоение минимального элементам на освободившихся местах}
 for i:=c+1 to c+cnt do
   if i<=n then
      a[i]:=a[c];

[min@y™]

Просвещай, чо и куда указывать

щас товарищи подтянутся и подскажут.
а мне проще демо-прогу написать.