Двумерные массивы.

Сам.работа Вар.2 С-14


1.Составьте программу вычисления суммы отрицательных элементов матрицы A(N,N)

2.Составьте программу вычисления произведения положительных элементов матрицы B(N,N)

3.Cоставьте программу вычисления суммы элементов третьего столбца матрицы С(N,N)



Решите пожалуйста(

1

Ответы и объяснения

Лучший Ответ!
2012-03-06T14:16:45+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var a,b,c:array [1..100,1..100] of integer;

as,bs,cs,i,j:integer;

Begin

  sb:=1;

  for i := 1 to n do

     for j:= 1 to n do

     begin

       if a[i,j]<0 then sa:=sa+a[i,j];

       if b[i,j]>0 then sb:=sb*b[i,j];

       if j=3 then sc:=sc+c[i,j];

     end;

   writeln(sa,sb,sc);

End.