Дана действительная матрица размера nxm. Получить последовательность b1,…,bn, где bk – определяется как а)Сумма наибольшего и наименьшего из значений элементов k-й строки; б) число отрицательных элементов в k-й строке; в) произведение квадратов тех элементов k-й строки, модули которых принадлежат отрезку [1;1,5] — Pascal(Паскаль)

program mas;
uses crt;
const
n=3;
m=4;
var
mas1:array[1..n , 1..m] of real;
mas2:array[1..n] of real;
i,j:integer;
min,max,sum:real;
procedure input;
begin
writeln('matrix');
for i:=1 to n do
begin
for j:=1 to m do
begin
mas1[i,j]:=-random(100)+random(100);
write (mas1[i,j]:3:3,' ');
end;
writeln('');
end;
end;
procedure _A_;
begin
writeln('Summa Min and Max');
for i:=1 to n do
begin
max:=mas1[i,j];
min:=mas1[i,i];
for j:=1 to m do
begin
if min>mas1[i,j] then min:=mas1[i,j];
if max<mas1[i,j] then max:=mas1[i,j];
end;
sum:=max+min;
writeln(sum:3:3);
end;
end;
procedure _b_;
var k:integer;
begin
writeln('our number of negative elements');
for i:=1 to n do
begin
k:=0;
for j:=1 to m do
begin
if mas1[i,j]<0 then k:=k+1;
end;
writeln(k:2);
end;
end;
procedure _C_;
var temp:real;
begin
writeln('prozvedenie kvadratov elementov v zadannom intervale');
for i:=1 to n do
begin
temp:=1;
for j:=1 to m do
begin
if (abs(mas1[i,j])>=1) and (abs(mas1[i,j])<=1.5) then
temp:=temp*mas1[i,j]*mas1[i,j];
end;
writeln(temp:3:3);
end;
end;
begin
randomize;
clrscr;
input;
_A_;
_b_;
_C_;
readkey;
end.