Проверьте задачу

[Kirlill]

В массиве A(n) вычеркнуть элементы, имеющие значения 6,11,7,25,15, сдвигая оставшиеся

Программный код:

const nn=1000;
var n:integer;a:array[1..nn] of integer;
  Form1: TForm1; 

implementation

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var temp,i,j,k:integer; spisok:string;
begin
k:=0;
 n:=strtoint(ComboBox1.Text);
 listbox1.Clear;
 Label3.Caption:='';
 For i:=1 To n Do begin
  a[i]:=round(random(20)+5);
  spisok:=spisok+inttostr(i)+') '+inttostr(a[i])+#13
 end;
 Label3.Caption:=spisok;
 for i:=1 to n do begin
  Case a[i] of
   6,7,11,15,25: begin a[i]:=0; k:=k+1; end;
  end;
 end;
 For i := 1 To n-1 do
  For j:=i+1 To n do
   If a[i]=0 Then begin
   temp:=a[j];a[j]:=a[i];a[i]:=temp
 end;
 for i:=1 to n-k do listbox1.Items.Add(IntToStr(i)+ ')'+inttostr(a[i]));
end;

initialization
  {$I unit1.lrs}

end.