Массив: Найти произведение всех её негативных элементов и заменить им все диагональные элементы этой матрицы.

@Wannaleave · Регистрация: 04.12.2018

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

Как сделать эту программу?Найти произведение всех её негативных элементов и заменить им все диагональные элементы этой матрицы.

@ZX Spectrum-128 · 05.12.2018, 11:06

Отсюда: Заменить все диагональние элементи матрицы произведением всех ее элементов

Pascal

const
  n = 5;
 
var
  arr: array[1..10, 1..10] of real;
  d: real;
  q, i, j: integer;
 
begin
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      arr[i, j] := -n * n div 2 + random * n * n;
      write(arr[i, j]:8:2);
    end;
    writeln;
  end;
  d := 1;
  q := 0;
  for I := 1 to n do
    for j := 1 to n do
      if arr[i, j] < 0 then
      begin
        D := D * arr[i, j];
        inc(q);
      end;
  if q <> 0 then    
    for i := 1 to n do 
    begin
      arr[i, i] := d;
      arr[i, n - i + 1] := d; 
    end
  else
    writeln('Нет отрицательных');
  writeln('Измененная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(arr[i, j]:12:2);
    writeln;
  end;
end.

@Wannaleave 0 / 0 / 0 Регистрация: 04.12.2018 Сообщений: 2
		1
	Массив: Найти произведение всех её негативных элементов и заменить им все диагональные элементы этой матрицы. 05.12.2018, 09:51. Показов 866. Ответов 1 Метки нет (Все метки) Как сделать эту программу?Найти произведение всех её негативных элементов и заменить им все диагональные элементы этой матрицы. 0

	05.12.2018, 11:06

Опции темы