вот короче код. Написан в 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;
думаю вопросов больше не возникнет