Определить количество отрицательных и положительных элементов матрицы

[pruelcr]

·Определить количество отрицательных и положительных элементов матрицы.
·Если на главной диагонали матрицы есть хотя бы один отрицательный элемент, то к каждому элементу главной диагонали прибавить сумму предшествующих ему элементов.
·Найти суммы произведений ненулевых цифр элементов каждой строки матрицы.

[Аватар]

покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,cm,cp:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=-10+Random(21);
         Write(p[i,j]:3,'  ');
      end;
      Writeln;
   end;
   Writeln;
   cm:=0;
   cp:=0;
   For i:=1 to 10 do
      For j:=1 to 10 do
      begin
         If p[i,j]<0 then
            Inc(cm);
         If p[i,j]>0 then
            Inc(cp);
      end;
   Writeln('count minus = ',cm);
   Writeln('count plus  = ',cp);
   Writeln;
   cm:=0;
   For i:=1 to 10 do
      If p[i,i]<0 then
      begin
         cm:=1;
         Break;
      end;
   If cm=1 then
   begin
      cm:=0;
      For i:=1 to 10 do
      begin
         Inc(p[i,i],cm);
         Inc(cm,p[i,i]);
      end;
   end;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:3,'  ');
      Writeln;
   end;
   Writeln;
   cm:=0;
   For i:=1 to 10 do
   begin
      cp:=1;
      For j:=1 to 10 do
         If p[i,j]<>0 then
            cp:=cp*p[i,j];
      Writeln(cp);
      cm:=cm+cp;
   end;
   Writeln('----');
   Writeln(cm);
   Readln;
end.