Помогите решить .
Дан целочисленный массив размера N. Увеличить все четные числа, содержащиеся в массиве, на исходное значение первого четного числа. Если четные числа в массиве отсутствуют, то оставить массив без изменений.
Заранее спасибо.
Полная версия: Преобразование массива
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;
Цитата(Ozzя @ 25.05.2009 17:57) 
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 т.к половина написана на С++ , препод говорит как сделал ? приходится как то выкручиваться , но все же он говорит делать все заного .
Даже не знаю чего намудрил , 
Цитата
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.
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.
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;
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.