Строго ** языке паскаль пожалуйста! Дана действительная матрица размера n ** m. Получить...

Question

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

Answer 1

Const
  LIM=2; W=8; D=2; n=5; m=5; { n строк, m столбцов }
var
  a: array [1..n,1..m] of real;
  p: real;
  h: boolean;
  i, j: integer;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to n do begin
    for j:=1 to m do begin
      a[i,j]:=LIM*Random;
      Write(a[i,j]:W:D);
    end; WriteLn;
  end;
  WriteLn('B=');
  for i:=1 to n do begin
    p:=1; h:=false;
    for j:=1 to m do
      if (abs(a[i,j])>=1) and (abs(a[i,j])<=1.5) then begin<br>        p:=p*sqr(a[i,j]); h:=true;
      end;
    if h then Write(p:W:D) else Write('?':W);
  end; WriteLn;
  Write('Нажмите ENTER...'); ReadLn;
end.

Comments

и объясните пожалуйста что написали и зачем, заранее спасибо