Задана матрица размером 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;Beginclrscr;for j:=1 to m dofor i:=1 to n do begin randomize; mas[i,j]:=random(100); end;l:=0;v:=0;for j:=1 to m dofor 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.