помогите плизззз очень нужно

[sanya006]

из четных чисел исходного массива сформировать новый массив зафиксировать позиции этих чисел......

[russian-stalker]

Не очень понял, но надо что-то типа этого: ?

program Project2;
var
a,b:array[1..10] of integer;
i:integer;

begin
  randomize;
  writeln('Ishodniy Massiv:');
  for i:=1 to 10 do
  begin
   a[i]:=random(100);
   if a[i] mod 2=0 then
    b[i]:=a[i];
   writeln('a[',i,'] = ',a[i]);
  end;
  writeln;
  for i:=1 to 10 do
  if b[i]<>0 then
   writeln('b[',i,'] = ',b[i]);
  readln;
end.

[counter]

russian-stalker, прям метеор какой-то...

[kakawkin]

чтото вроде этого должно получится:

program tt;
const n=3;
var a:array[1..n,1..n] of integer;i,j:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    readln(a[i,j]);
    writeln;
   end;
 for i:=1 to n do
  for j:=1 to n do
   if a[i,j] mod 2<>0 then a[i,j]:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]);
    writeln;
   end;
end.

если так - то плз мне благодарность ан форуме через кнопочку =)