Дана действительная матрица размера n на m. Получить последовательность b1,..,bn, где bk- это произведение квадратов тех элементов k-й строки

@Молдир · Регистрация: 20.10.2013

Author24 — интернет-сервис помощи студентам

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

@bormant · 06.03.2014, 13:17

Pascal

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
        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.

@Молдир 0 / 0 / 0 Регистрация: 20.10.2013 Сообщений: 43
		1
	Дана действительная матрица размера n на m. Получить последовательность b1,..,bn, где bk- это произведение квадратов тех элементов k-й строки 05.03.2014, 22:17. Показов 3090. Ответов 1 Метки нет (Все метки) Дана действительная матрица размера n на m. Получить последовательность b1,..,bn, где bk- это произведение квадратов тех элементов k-й строки,модули которых принадлежат отрезку [1; 1,5] помогитее!!! 0

	06.03.2014, 13:17

Дана действительная матрица размера n на m. Получить последовательность b1,..,bn, где bk- это произведение квадратов тех элементов k-й строки

Решение