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

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

Не очень понял, но надо что-то типа этого: ?
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.


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


чтото вроде этого должно получится:
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.
если так - то плз мне благодарность ан форуме через кнопочку =)