Решаю следующую задачу: составить процедуру выделения из массива Y (4*3) элементов со значением в диапазоне X1..X2. Результат из M элементов помещеатес в массив z.
Вот что я сделал:
program kont_4;
uses crt;
procedure proc(a,b:integer; x:array[1..4,1..3] of integer; var z:array[1..12] of integer);
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:array[1..4,1..3] of integer;
z1:array[1..12] of integer;
x1,x2,i1,j1:integer;
begin
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;
Но почему то при запуске программы компилятор ругается на то, что не хватает of в следующей строке:
procedure proc(a,b:integer; x:array[1..4,1..3] of integer; var z:array[1..12] of integer);
Подскажите, пожалуйста, что не так ?