Crazy-x7, вот часть:
var i,j:integer;
begin for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(80)-40;
end;
Это понятно, заполнение массива случайными числами.
var i,j,q,m:integer;
begin
for i:=1 to 5 do
begin
max[i]:=0;
min[i]:=0;
end;
labal1.Caption:='';
q:=40;
m:=-40;
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
if a[i,j]<q then q:=a[i,j];
if a[i,j]>m then m:=a[i,j];
end;
max[i]:=m;
min[i]:=q;
end;
end;
Вот собственно код.
max массив максивальных элементов матрицы.
min массив минимальных элементов матрицы.
Насколько я понимаю так?