Матрицы. Сформировать одномерный массив из произведений квадратов тех элементов каждой строки, модули которых принадлежат отрезку [x, y]

@max_scotch · Регистрация: 11.05.2012

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

Помогите пожалуйста с решением этой задачи

Дана действительная матрица размера M×N. Сформировать одномерный массив из произведение квадратов тех элементов каждой строки, модули которых принадлежат отрезку [x, y].

@ermolay · 21.05.2012, 09:35

Pascal

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of real;
  b: array[1..nmax] of real;
  i,j,n,m,k: integer;
  s,x,y: real;
begin
  randomize;
  write('Введите размеры массива m,n: ');
  readln(m,n);
  writeln('Исходный массив:');
  for i:=1 to m do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(9)+random;
      write(a[i,j]:6:2);
    end;
    writeln;
  end;
  writeln;
  
  repeat
    write('Введите два числа x и y от 1 до 9 (x<y): ');
    readln(x,y);
  until (x>1)and(x<9)and(y>1)and(y<9)and(x<y);
  
  for i:=1 to m do
  begin
    s:=1;
    for j:=1 to n do
    begin
      if (a[i,j]>x)and(a[i,j]<y) then
        s:=s*sqr(a[i,j]);
    end;
    if s<>1 then
    begin
      inc(k);
      b[k]:=s;
    end;
  end;
  
  writeln('Полученный одномерный массив:');
  for i:=1 to k do writeln(i,'-й элемент: ',b[i]:6:2,';');
  readln;
end.

Добавлено через 5 минут

Сообщение от max_scotch

модули которых принадлежат отрезку [x, y].

не заметил..))
строка 34

Pascal

1	if (abs((a[i,j]>x)))and(abs((a[i,j]<y))) then

и границы рандомного числа можно изменить, чтобы и отрицательные туда попадали..

@max_scotch 0 / 0 / 0 Регистрация: 11.05.2012 Сообщений: 17
		1
	Матрицы. Сформировать одномерный массив из произведений квадратов тех элементов каждой строки, модули которых принадлежат отрезку [x, y] 18.05.2012, 10:10. Показов 1748. Ответов 1 Метки нет (Все метки) Помогите пожалуйста с решением этой задачи Дана действительная матрица размера M×N. Сформировать одномерный массив из произведение квадратов тех элементов каждой строки, модули которых принадлежат отрезку [x, y]. 0

	21.05.2012, 09:35

Матрицы. Сформировать одномерный массив из произведений квадратов тех элементов каждой строки, модули которых принадлежат отрезку [x, y]

Решение