Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если он больше суммы остальных элементов с

Задана матрица размером NxM. Определить k – количество “особых” элементов матрицы, считая элемент “особым”, если он больше суммы остальных элементов своего столбца.

  • Program Pr1;
    uses crt;
    const n=100;
    m=100;
    var mas:array[1..n,1..m] of integer;
    i,j,l,k,v:integer;
    Begin
    clrscr;
    for j:=1 to m do
    for i:=1 to n do begin
    randomize;
    mas[i,j]:=random(100);
    end;
    l:=0;v:=0;
    for j:=1 to m do
    for i:=1 to n do begin
    k:=1;
    while k<=m do if k=m then k:=k+1
    else begin
    l:=mas[i,k]+l;
    k:=k+1;
    end;
    if mas[i,j]>l then v:=v+1;
    l:=0;
    end;
    writeln(v);
    end.


See also: