интервал -15,15
c[i,j]:=-15+random(30);
{сумма положительных чисел в <u>каждой строке</u>}
for i:=1 to n1 do begin
<span> s:=0;</span>
<span>for j:=1 to n2 do </span>
<span>if c[i,j]>0 then s:=s+c[i,j];</span>
<span>writeln(</span><span>'</span>суммаэлем<span>-</span>в<span>',</span><span>i</span><span>,'–</span>й строки<span>=',s,' </span><span>');</span>
end;
{<u>поиск минимума</u>}
min:=c[1,1];{объявить переменную}
i_min:=1;{объявить переменную}
j_min:=1;{объявить переменную}
for i:=1 to n1 do begin
<span>for j:=1 to n2 do </span>
<span>if c[i,j]<min then </span>
<span>min:=c[i,j];</span>
<span>i_min:=i;</span>
<span>j_min:=j;</span>
end;
<span>writeln(</span><span>'Минимальный элемент </span>С['<span>,</span><span>i,',',j,']=</span><span>'</span><span>,min</span><span>);</span>
{<u>замена положительных элементов на 0</u>}
for j:=1 to n2 do begin
<span> s:=0;</span>
<span>for i:=1 to n1 do </span>
<span>if c[i,j]>0 then c[i,j]:=0;</span>
end;