Найти сумму положительных элементов указанного двумерного массива.

[M&M]

Найти сумму положительных элементов указанного двумерного массива. Транспонировать данную матрицу. Элементы главной диагонали заменить нулями.

[Alar]

поиск по форуму по запросу "сумму положительных элементов двумерного массива"

http://www.programmersforum.ru/showt...F1%F1%E8%E2%E0.

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

[M&M]

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

поиск по форуму по запросу "сумму положительных элементов двумерного массива"

http://www.programmersforum.ru/showt...F1%F1%E8%E2%E0.

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

Турбо Паскаль

[Alar]

в поиск справа наверху. там найдете 100 ответов

[M&M]

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

в поиск справа наверху. там найдете 100 ответов

Нету,искала

[Alar]

ничего вы не искали. куча решений по одномерным массивам, которые легко допилить и для двумерного.

а то что вы двумерный массив как только не назовете и двухмерным и еще как. и ждете помощи - вообще нонсенс, с чего вам должны помогать в задаче, которую потом никто не надйет на поиске?

никому ваши "помогите" не нужны. не можете пояснить что надо - платите деньги специалисту который грамотно задаст вопрос и погуглит за вас.

забил в поиск - сумма положительных элементов матрицы. и там полно решений готовых, например.

http://www.programmersforum.ru/showt...F2%F0%E8%F6%FB

а названии темы - Paskal. это нормлаьно так называть? нет.

[newerow1989]

var p:array[1..10,1..10] of integer;
    i,j,sum:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
      begin
         p[i,j]:=Random(21);
         Write(p[i,j]:2,'  ');
      end;
      Writeln;
   end;
   Writeln;
   sum:=0;
   For i:=1 to 10 do
      Inc(sum,p[i,i]);
   Writeln('sum = ',sum);
   For i:=1 to 10 do
      For j:=i+1 to 10 do
      begin
         sum:=p[i,j];
         p[i,j]:=p[j,i];
         p[j,i]:=sum;
      end;
   For i:=1 to 10 do
      p[i,i]:=0;
   For i:=1 to 10 do
   begin
      For j:=1 to 10 do
         Write(p[i,j]:2,'  ');
      Writeln;
   end;
   Writeln;
   Readln;
end.