type
vector = array[0 .. n - 1] of integer;
matrix = array[0 .. m - 1] of vector;
function find_max(const arr: array of integer; const size: integer): integer;
var i, max: integer;
begin
max := arr[0];
for i := 1 to pred(size) do
if max < arr[i] then max := arr[i];
find_max := max;
end;
array[1..n] of integer
array[1 .. n, 1 .. n] of integer
array[1 .. n] of array[1 .. n] of integer
type
IntArray = array[0..0]of integer;
const
m = 15;
n = 25;
var
matrix : array[0..n-1,0..m-1]of integer;
function find_max(var arr: array of integer; const size: integer): integer;
begin
...
end;
begin
...
find_max(IntArray(matrix[0,0]), m*n);
const
n = 5;
m = 4;
type
vector = array[1 .. m] of integer;
matrix = array[1 .. n] of vector;
IntArr = array[1 .. 1] of integer;
function find_max(const arr: array of integer; const size: integer): integer;
var i, max: integer;
begin
max := arr[0];
for i := 1 to pred(size) do
if max < arr[i] then max := arr[i];
find_max := max;
end;
var
a: matrix;
i, j: integer;
begin
for i := 1 to m do begin
for j := 1 to n do begin
a[i, j] := random(100);
write(a[i, j]:4);
end;
writeln;
end;
writeln(find_max(IntArr(a[1, 1]), m*n));
end.
IntArr = array[1 .. 1] of integer;я сталкнулась впервые, и было непонятно, как работать с ней дальше.. Спасибо за полный код, буду разбираться)))
const
n = 5;
m = 4;
type
vector = array[1 .. m] of integer;
matrix = array[1 .. n] of vector;
IntArr = array[1 .. 1] of integer;
function find_max(const arr: array of integer; const size: integer): integer;
var i, max: integer;
begin
max := arr[0];
for i := 1 to pred(size) do
if max < arr[i] then max := arr[i];
find_max := max;
end;
var
a: matrix;
i, j: integer;
begin
for i := 1 to m do begin
for j := 1 to n do begin
a[i, j] := random(100);
write(a[i, j]:4);
end;
writeln;
end;
writeln(find_max(IntArr(a[1, 1]), m*n));
end.
IntArr = array[1 .. 1] of integer;я сталкнулась впервые, и было непонятно, как работать с ней дальше.. Спасибо за полный код, буду разбираться)))