Question

Дана матрица M(4*4). Определить количество особых элементов массива. Элемент считается особым, если он больше суммы остальных элементов своего столбца.

Answer 1

var
  M: array [1 .. 4, 1 .. 4] of integer;
  i, j, k, sum: integer;
  count: byte;

begin
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
    begin
      M[i, j] := random(16);
      write(M[i, j]:4);
    end;
    writeln;
  end;

  for i := 1 to 4 do
  begin
    sum := 0;
    for j := 1 to 4 do
      sum := sum + M[j, i];
    for j := 1 to 4 do
      if (M[j, i] > sum - M[j, i]) then
        Inc(count);
  end;
  writeln('Количество особых элементов = ', count);

end.