Найти особые элементы матрицы...

[DarkDeidara]

Дана матрица вещественных чисел размером MxN, её элементы ввести с клавиатуры. Определить k - количество "особых" элементов массива А, считая элемент особым, если он больше суммы всех остальных элементов матрицы.

Дак вот мне нужен цикл нахождения суммы всех остальных элементов столбца.

Сама задачка есть нехватает только этой суммы.

uses crt;
const n=3;m=3;
var a:array[1..n,1..m] of integer;
    i,j,k,sum:integer;
begin
     clrscr;
     for i:=1 to n do
     for j:=1 to m do
     begin
           write ('a[',i,',',j,']=');
           readln (a[i,j]);
     end;
     clrscr;
     writeln ('Введённая матрица:');
     for i:=1 to n do
     begin for j:=1 to m do
           write (a[i,j]:4);
           writeln;
     end;
     for j:=1 to m do
     begin
          sum:=0;
          k:=0;
          for i:=1 to n do
          sum:=..........
          if a[i,j]>sum then
          k:=k+1;
          writeln ('Количество особых элементов в ',j,' столбце = ',k);
          writeln ('Сумма элементов в ',j,' столбце = ',sum);
          writeln;
     end;
     readln;
     end.

Помогите кто чем может))

[Sibedir]

Что является остальными элементами матрицы? Все элементы вообще или только столбца?

считая элемент особым, если он больше суммы всех остальных элементов матрицы.

или же

нужен цикл нахождения суммы всех остальных элементов столбца.

Вариант А
1 2 3 4
3 2 4 5
2 4 5 7
6 7 8 1
3 4 5 6

Вариант Б
1 2 3 4
3 2 4 5
2 4 5 7
6 7 8 1
3 4 5 6

И еще. Считается ли последний элемент особым, если он > 0.

-1 +3 +4
+2 -5 -1
-3 +1 +2

для элемента [3,3] = 2 сумма всех следующих элементов = 0. 2 > 0, следовательно [3,3] - особый элемент.

Добавлено --------------------------------------------------------------------------------
Есть еще заморочки

Дана матрица вещественных чисел

и тут же

var a:array[1..n,1..m] of integer;

Вот накидал то, что мне кажется верным

var
  i, j, k, m, n: Integer;
  sum: Real;
  a: array [1..100, 1..100] of Real;

BEGIN
  write ('Kol-vo strok: ');
  readln (m);
  write ('Kol-vo stolbcov: ');
  readln (n);

  writeln;
  for i := 1 to m do begin
    write ('Stroka ', i, ': ');
    for j := 1 to n do begin
      read (a[i,j]);
    end;
  end;

  writeln;
  writeln ('Matrix:');
  for i := 1 to m do begin
    for j := 1 to n do
      write (a[i,j]:6:3, ' ');
    writeln;
  end;

  writeln;
  for j := 1 to n do begin
    sum := 0;
    k := 0;
    for i := m downto 1 do begin
      if a[i,j] > sum then k := k + 1;
      sum := sum + a[i,j];
    end;
    writeln ('Stolbec ', j, ': k = ', k, '; sum = ', sum:6:3, ';');
  end;

  readln;
  readln;
END.

Для определения столбец/строка пользовался статьей Матрица (математика)

[DarkDeidara]

Особый элемент - это элемент, который больше суммы всех элементов столбца кроме него.
Вот мне нужно найти эту сумму остальных элементов В КАЖДОМ СТОЛБЦЕ.

[Sibedir]

Ну дык пост #2

[Serebro]

Самый простой способ - это предварительно вычислить сумму всех элементов столбца (или матрицы), и после вычитать из этой суммы выбранный элемент столбца (или матрицы).

[DarkDeidara]

способ то простой, но для него обязательно нужно знать размерность матрицы и для каждого элемента искать сумму и вычитать его из неё

[DarkDeidara]

Sibedir ты похоже не можешь понять какую сумму мне надо найти)) твой вариант решения я и сам написал в нём одно нужно найти СУММУ ЭЛЕМЕНТОВ СТОЛБЦА исключая каждый раз один из них)) а потом сравнивать каждый элемент столбца с этой суммой

[Sibedir]

  for j := 1 to n do begin
    sum[j] := 0;
    for i := 1 to m do
      sum[j] := sum[j] + a[i,j];
  end;

  writeln;
  for j := 1 to n do begin
    k := 0;
    for i := m downto 1 do begin
      if a[i,j] > (sum[j] - a[i,j]) then k := k + 1;
    end;
    writeln ('Stolbec ', j, ': k = ', k, '; sum = ', sum[j]:6:3, ';');
  end;

Sibedir ты похоже не можешь понять какую сумму мне надо найти))

Ну дык я спрашивал, ты не ответил.

но для него обязательно нужно знать размерность матрицы

Это не тайна

для каждого элемента искать сумму и вычитать его из неё

А что мешает?

[DarkDeidara]

А почему он пишет недопустимый спецификатор (invalid qualifier)

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

  for j := 1 to n do begin
    sum[j] := 0;

[alex_fcsm]

Дак вот мне нужен цикл нахождения суммы всех остальных элементов столбца

найти сумму столбца минус текущий элемент. Сумму столбца рекомендую вынести в отдельную функцию(оставил вам))

uses crt;

var
  i, j, k, m, n,p: Integer;
  sum: Real;
  a: array [1..100, 1..100] of Real;
  temp:real;

BEGIN
readln(m,n);
clrscr;
for i:=1 to m do
 begin
 for j:=1 to n do
  begin
   a[i,j]:=random(i*10);
   write(a[i,j]:3:0);
  end;
  writeln;
 end;

k:=0;
for i:=1 to m do
 for j:=1 to n do
  begin
   temp:=0;
   for p:=1 to m do
   temp:=temp+a[p,j];
   if a[i,j]>(temp-a[i,j]) then inc(k)
  end;
Writeln('=================');
Writeln(k);
END.