определить кол-во особых элементов

[Alex26]

две задачи:
1)Дана матрица n х m.Определить кол-во особых элементов, считая его элементом особым, если он больше суммы остальных элементов его столбца или строки.Все особые элементы вывести на печать с указанием индексов.Среди особых элементов найти наибольший и наименьший элемент.
2)Палиндром – это сочетание символов, которые читаются одинаково в прямом и обратном направлениях. Элементом палиндрома может быть буква, цифра или слово. Дано натуральное число n. Если это не палиндром, реверсируйте его цифры и сложите исходное число с числом, полученным в результате реверсирования. Если сумма не палиндром, то повторите те же действия и выполняйте их до тех пор, пока не получится палиндром.
Пример:
78+87=165
165+561=726
726+627=1353
1353+3531=4884

[rubius2008]

1)

k:=0;
for i:=1 to n do
 for j:=1 to m do begin
     s1:=-a[i,j]; for z:=1 to m do s1:=s1+a[i,z]; 
     s2:=-a[i,j]; for z:=1 to n do s1:=s1+a[z,j];
     if (a[i,j]>s1) or (a[i,j]>s2) then begin
        k:=k+1; b[k]:=a[i,j]; writeln('a[',i,',',j,']=',a[i,j]);
     end;
 end; 
if k>0 then begin
 max:=b[1]; min:=b[1];
 for i:=2 to k do begin
   if max<b[i] then max:=b[i];
   if min>b[i] then min:=b[i];
 end; 
end;