в какой строке ошибка?

[foxy342]

Дана действительная матрица размера n*m. Получить последовательность b1,...,bn, где bk - произведение квадратов тех элементов k-ой строки модули которых принадлежат [1;3,5]

uses crt;
var
   a:array[1..10,1..10] of real;
   b:array[1..100] of real;
   i,j,m,n:integer;
   s:real;
begin
clrscr;
     writeln('enter n and m'); read(n,m);
     for i:=1 to n do
         for j:=1 to m do
             a[i,j]:=Random(5)-2.5;
     writeln('massiv a'); 
     for i:=1 to n do
     begin  
         for j:=1 to  m do
             write(a[i,j]:2,' ');
         writeln;
     end;                           
     readln;
     for i:=1 to n do
     b[i]:=1;
     begin
         for j:=1 to m do
              if (1<=abs(a[i,j])) and (abs(a[i,j])<=3.5) then
                   b[i]:=a[i,j]*a[i,j]*b[i];
     end;
     for i:=1 to n do
         b[i]:=b[i]*i;
     writeln('massiv b');
     for i:=1 to n do
         writeln('b[',i,']=',(b[i]):2)
end.

[foxy342]

почему-то считает только последнее b[i]

[Hacker19_90]

А первые b[i] чему равны???
И ещё

for i:=1 to n do
b[i]:=b[i]*i;

Это зачем?

[andrewpalkin]

Поправил твою программу , разберешься сам , что и как :

var
   a:array[1..10,1..10] of real;
   b:array[1..100] of real;
   i,j,m,n:integer;
   s:real;
begin
     writeln('enter n and m'); read(n,m);
     
     for i:=1 to n do
         for j:=1 to m do
             a[i,j]:=Random(5)-2.5;
     
     writeln('massiv a');
     for i:=1 to n do
     begin  
         for j:=1 to  m do
           write(a[i,j]:2,' ');            
         
         writeln;
         b[i]:=0;
     end;                           
      
     for i:=1 to n do
     begin 
        for j:=1 to m do
          if (1<=abs(a[i,j])) and (abs(a[i,j])<=3.5) then
            begin
              if b[i]=0 then
                b[i]:=a[i,j]*a[i,j]
              else
                b[i]:=a[i,j]*a[i,j]*b[i];
            end
     end;
    
     writeln('massiv b');
     for i:=1 to n do
         writeln('b[',i,']=',(b[i]):2)
end.