двумерный массив

[4ERRY]

Сздравствуйте. помогите пожалуйста исправить и доделать задачу!!! очень надо!

Дана действительная матрица размера nxm. Получить последовательность b1, …, bn, где bk – это

а) сумма наибольшего и наименьшего из значений элементов k-й строки;
б) число отрицательных элементов в k-й строке;
в) произведение квадратов тех элементов k-й строки, модули которых принадлежат отрезку [1; 1,5].

вот что я нарешала:

program mas;
uses crt;
var
mas1:array[1..n,1..m] of integer;
mas2:array[1..n] of integer;
i,j,min,max,suma,n,m:integer;
begin
clrscr;
mas2:=0;
writeln ('Введите число строк');
readln (n);
writeln ('Введите число столбцов');
readln (m);
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]);
end;
writeln;
end;
writeln;
for i:=1 to n do
begin
j:=1;
suma:=0;
max:=mas1[i,j];
min:=mas1[i,j];
for j:=1 to n do
begin
if mas1[i,j]>max then
max:=mas1[i,j];
if mas1[i,j]<min then
min:=mas1[i,j];
end;
suma:=min+max;
write (suma,' ');
end;
begin
if a[i,j]<0 then
inc(mas2[i]);
end;
write ('mas2[',i,'] = ',mas2[i]);
readkey;
end.

как сделать пункт "В" я не знаю(

[fat-lip]

тут вообще все неправильно, счас сделаю

[fat-lip]

<PASKAL>

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('our 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('Sum of 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 numbers');
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('adn the last');
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.


</PASKAL>

лови))

[4ERRY]

пасииииба огромное!)))))))))