инфа / проги инфа вар 1,2(родионова) / UNIT2

unit Unit2;
interface
Const n = 3; m = 4;
Type matr = array[1..n,1..m] of real;
inmass = array[1..n] of integer;
procedure Negative(A:matr; Var L:inmass);
function Maximum(L:inmass):boolean;
function SrArifm(A:matr):real;
procedure Replacement(Var A:matr);

implementation
procedure Negative(A:matr; Var L:inmass);
Var i,j,k:integer;
Begin
for i := 1 to n do
Begin
k := 0;
for j := 1 to m do
if A[i,j] < 0 then k := k + 1;
L[i] := k;
end;
end;
function Maximum(L:inmass):boolean;
Var i:integer;
b:boolean;
Begin
b := true;
i := 1;
repeat i := i + 1;
if L[i] > L[1] then b := false
until (i >= n) or (not b);
Maximum := b;
end;
function SrArifm(A:matr):real;
Var s:real;
i,j:integer;
Begin
s := 0;
for i := 1 to n do
for j := 1 to m do
s := s + A[i,j];
SrArifm := s / (m * n);
end;
procedure Replacement(Var A:matr);
Var i,j:integer;
Begin
for i := 1 to n do
for j := 1 to m do
if A[i,j] < 0 then A[i,j] := abs(A[i,j]);
end;
end.