| Код |
{функция}
procedure min(var X:array integer; m:integer;var k:integer);
var
min,i:integer;
begin
min:=x[0];
k:=0;
for i:=1 to n do
if(x[(i+i*4)]<min) then
begin
min:=x[i];
k:=i;
end;
k:=k+1;
end;
{обявление массива}
A:array[1..n,1..n]of integer;
{вызов функции}
min(A{\/},n,v);
|
компилятор пишет о несоответствии типов и ставит указатель где я показал{\/}
как правильно передать указатель не создавая новый тип данных?(у меня нескольно разных массивов разных размеров и функция должна работать со всеми ними) |