Помогите найти ошибку пожалуйста

[никита134245]

условие задачи : рандомно задается массив, для елементов, размещенных после последнего минимального выполнить сдвиг вправо на 2 позиции, а на свободные места вписать минимальый елемент

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
 randomize;
 for i:=1 to n do
 begin
  a[i]:=random(100)-50;
  write (a[i]:4);
 end;
 writeln;
 min:=a[1];
 for i:=1 to n do
  if a[1]>=a[i] then
   begin
    min:=a[i];
    c:=i;
   end;
 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.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[newerow1989]

Так что ли? А что с двумя последними элементами в исходном массиве делать?

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

[никита134245]

Спасибо большое, в них записать минимальный

[Serge_Bliznykov]

интересно, куда делось ваше предыдущее сообщение на форуме?!...

ну да ладно, мне не трудно ещё раз тот же самый код выложить:

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
 randomize;
 for i:=1 to n do
 begin
  a[i]:=random(100)-50;
  write (a[i]:4);
 end;
 writeln;
 {поиск последнего минимального}
 c:=1;
 for i:=1 to n do
    if a[c]>=a[i] then c:=i;

 {сдвиг}
 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];

 {вывод полученного массива}
 for i:=1 to n do write(a[i]:4);
 readln;
end.