Матрицы

[kiborgkz]

Помогите решить задачу
Получить новую матрицу путем умножения всех элементов данной матрицы на ее наибольший по модулю элемент.

[Alex11223]

И в чем проблема? Ищите "наибольший по модулю элемент матрицы" (подсказка: вам понадобятся цикл for, if и функция abs(x) ) и умножаете все ее элементы на это число.

[kiborgkz]

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

И в чем проблема? Ищите "наибольший по модулю элемент матрицы" (подсказка: вам понадобятся цикл for, if и функция abs(x) ) и умножаете все ее элементы на это число.

Спасибо написал, подскажите правильно ли ?

uses
  crt;

const
  n = 5; 
  m = 5;

var
  a: array[1..n, 1..m] of real;
  i, j: integer;
  max: real;
  rez: real;

begin
  ClrScr;
  randomize;
  Writeln('Исходная матрица');
  Writeln('----------');
  max := 1;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(10);      
      write(a[i, j]:4);
    end; 
    writeln;     
  end;
  
  writeln('---------');
  writeln('Результат матрицы');  
  writeln('---------'); 
  for i := 1 to n do
  begin
    for j := 1 to m do 
    begin
      if max < abs(a[i, j]) then 
        max := abs(a[i, j]); 
      rez := a[i, j] * max;      
      write(rez:4);   
    end;
    writeln;
  end;      
  writeln;
  writeln('---------');  
end.

[Alex11223]

max:=a[1, 1];
for i := 1 to n do
   for j := 1 to m do
      if max < abs(a[i, j]) then
        max := a[i, j];
for i:=1 to n do
   for j:=1 to m do
      begin
         a[i, j] := a[i,j] * max;
         write(a[i, j]:4);
       end;

Как-то так. По условию умножать вроде бы надо не на модуль.

[kiborgkz]

Все получилось.
Мерси

[ElenaO]

Помогите пожалуйста решить задачу:. Дана действительная матрица А размером MxN, где M, N - заданные натуральные числа. Назовем элемент A(I, J) особым (i=l,2, .... М; j=l,2, ..., N), если сумма элементов в i строке больше нуля, а сумма элементов в j столбце кратна 5. Найти сумму особых элементов в матрице А. Если особых элементов нет, то вывести соответствующее текстовое сообщение.

Не понимаю как её написать(((Прошу о помощи

[alex_8]

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

Помогите пожалуйста решить задачу:. Дана действительная матрица А размером MxN, где M, N - заданные натуральные числа. Назовем элемент A(I, J) особым (i=l,2, .... М; j=l,2, ..., N), если сумма элементов в i строке больше нуля, а сумма элементов в j столбце кратна 5. Найти сумму особых элементов в матрице А. Если особых элементов нет, то вывести соответствующее текстовое сообщение.

Не понимаю как её написать(((Прошу о помощи

На каком языке необходимо написать?

[ElenaO]

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

На каком языке необходимо написать?

Паскаль,а какой-без разницы.Главное чтобы программа была

[alex_8]

uses
  crt;

const
  n = 5; 
  m = 5;

var
  a: array[1..n, 1..m] of real;
  i, j: integer;
  Si: real;
  Sj: real;

begin
  ClrScr;
  randomize;
  Writeln('Исходная матрица');
  Writeln('----------');
Si:=0;
Sj:=0;  
for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(10);      
      write(a[i, j]:4);
    end; 
    writeln;     
  end; 
  for i := 1 to n do
  begin
    for j := 1 to m do 
    begin
        Si := Si + a[i, j];
        Sj := Sj + a[j; i];
    end;
        if ((Si > 0) and (Sj mod 5 = 0)) Then 
        begin
           for j:= 1 to m
           begin
               if a[i,j] > sum then
               sum := sum + a[i,j];
               writeln('Сумма', sum);
           end;
         end
         else 
         write('особых элементов в матрице А нету');
         break;
  end;      
end.

Походу как то так.

[ElenaO]

Ой,так быстро....Спасибо большое.Вы очень выручили))))Можно вопрос?Не могли бы вы объяснить что такое ,,особые элементы в матрице ,,