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

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

а язык какой?


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


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


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.
И еще такой вопрос: как выбранные значения из указанного диапазона поместить в этот же исходный массив ?