Преобразование массива Опции

[die]

Помогите решить .
Дан целочисленный массив размера N. Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного числа. Если четные числа в массиве отсутствуют, то оставить массив без изменений.
Заранее спасибо.

[Ozzя]

for i:=1 to n do
  if not odd (a[i]) then
    begin
      b:=a[i];
      break;
    end;
for i:=1 to n do
  if not odd (a[i]) then
    a[i]:=a[i]+b;

[die]

for i:=1 to n do
  if not odd (a[i]) then
    begin
      b:=a[i];
      break;
    end;
for i:=1 to n do
  if not odd (a[i]) then
    a[i]:=a[i]+b;

спасибо = ) иногда ищу через поиск что-то нахожу но толку 0 т.к половина написана на С++ , препод говорит как сделал ? приходится как то выкручиваться , но все же он говорит делать все заного .

[die]

Даже не знаю чего намудрил ,

program Input_2_array;
uses Crt;
var M:array[1..3,1..4] of Integer;
j:integer; {столбец}
i:integer; {строка}
n:integer;
b:integer;
begin
n:=3;
Clrscr;
writeln ('Заполните двухмерный массив');
for i:=1 to 3 do
for j:=1 to 4 do
begin
write ('M(',i,',',j,')=');
read (M[i,j]);
end;
writeln ('Заполненный массив:');
for i:=1 to 3 do
begin
writeln;
for j:=1 to 4 do
write (M[i,j]:n);
end;
for i:=1 to n do
if not odd (m[i]) then
begin
b:=m[i];
break;
end;
for i:=1 to n do
if not odd (m[i]) then
m[i]:=m[i]+b;
repeat until keypressed;
end.

[Client]

if not odd (m[i]) then     //массив то ДВУМЕРНЫЙ
begin
b:=m[i];
break;
end;
for i:=1 to n do
if not odd (m[i]) then         //тоже самое
m[i]:=m[i]+b;