var m : array [1..10] of Integer; i : Integer;begin// Здесь заносишь значения в массив. for i := 1 to 9 do if ( m[i] mod 2 ) <> 0 then m[i] := m[i] + m[10];
end.
var
m : array [1..10] of Integer;
i : Integer;
begin
// Здесь заносишь значения в массив.
for i := 1 to 9 do
if ( m[i] mod 2 ) <> 0 then m[i] := m[i] + m[10];
end.