[Pilot_Red]

вот короче код. Написан в Delphi 7

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
i,min:integer;
begin
min:=a[1];
for i:=2 to 10 do
    if min>a[i] then min:=a[i];

for i:=1 to 10 do
  if i mod 2=0 then   a[i]:=a[i]-min ;
end;

думаю вопросов больше не возникнет