Просьба помочь в написании процедуры.

[Ветас]

Здравствуйте, уважаемые форумчане.

Решаю следующую задачу: составить процедуру выделения из массива Y (4*3) элементов со значением в диапазоне X1..X2. Результат из M элементов помещеатес в массив Y.

Просьба помочь составить процедуру.

[Пепел Феникса]

а язык какой?

[Ветас]

язык программирования Паскаль

[Stilet]

А наработки есть?
Что в методичке написано?
Как тебя учат?

[ОДИНОЧЕСТВО В СЕТИ]

type matrix = array[1..4,1..3] of real;
       vector = array[1..12] of real;
.......................
procedure Nb(var a:matrix;var x1,x2:real;var m:integer;var y:vector);
var i,j:integer;
begin
m:=0;
for i:=1 to 4 do
for j:=1 to 3 do
if (a[i,j]>x1) and (a[i,j]<x2) then
begin
inc(m);
y[m]:=a[i,j];
end;end;

[Ветас]

Большое спасибо за овет,под правил в программе:

program kont_4;
uses crt;
type
mas=array[1..12] of integer;
matr=array[1..4,1..3] of integer;
procedure proc(a,b:integer; x:matr; var z:mas);
var i,j,c:integer;
begin
c:=0;
for i:=1 to 4 do begin
for j:=1 to 3 do begin
if (x[i,j]>a) and (x[i,j]<b) then begin
c:=c+1;
z[c]:=x[i,j];
end;
end;
end;
end;

var
y:matr;
z1:mas;
x1,x2,i1,j1:integer;

begin
clrscr;
randomize;
for i1:=1 to 4 do begin
for j1:=1 to 3 do begin
y[i1,j1]:=random(100);
write(y[i1,j1]:3);
end;
writeln;
end;
writeln('Введите x1,x2');readln(x1,x2);
proc(x1,x2,y,z1);
for i1:=1 to 12 do begin
write(z1[i1]:3);
end;
readln;
end.

И еще такой вопрос: как выбранные значения из указанного диапазона поместить в этот же исходный массив ?