greyscalegorilla
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Если единственный максимум в заданной матрице большее 2.5 и находится на главной диагонали, то все элементы такой матрицы, кроме этого элемента, разделить на максимум.
program pr_8;
const
N =10;
var
A: array[1..N, 1..N] of real;
i, j, mi, mj: integer;
max: real;
howmany: integer;
begin
max := A[1,1];
howmany := 0;
for i := 1 to N do
for j := 1 to N do
begin
if max = A[i,j] then Inc(howmany);
if max < A[i,j] then begin max := A[i,j]; howmany := 1; mi := i; mj := j end;
end;
if (howmany=1) and (mi=mj) and (max > 2.5) then begin
for i := 1 to N do
for j := 1 to N do
if (i<>mi) and (j<>mj) then A[i,j] := A[i,j] / max;
end;
end;
объясните пожалуйста подробно эту задачу,ее мне помог сделать один добрый человек с вашего форума |
