Двумерные массивы. сам.работа вар.2 с-14 1.составьте - вопрос №927442141 от дира3 27.03.2023 01:31

Question

Информатика: Двумерные массивы. сам.работа вар.2 с-14 1.составьте программу вычисления суммы отрицательных элементов матрицы a(n,n) 2.составьте программу вычисления произведения положительных элементов матрицы b(n,n) 3.cоставьте программувычисления суммы элементов третьего столбца матрицы с(n,n) решите (

дира3 · Answer

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.