Срочно нужна помощь!!!!!!!!
Дан двумерный массив целых чисел размерностью <span>n</span>1<span>xn</span>2. Определить сумму положительных чисел в каждом столбце.
program vt;
uses crt;
type matr = array [1..50,1..50] of integer;
var c:matr;
j,i,l,n1,n2,s:integer;
begin
clrscr;
randomize;
<span>{</span>блок ввода элементов массива<span>}</span>
writeln('n1='); readln(n1);
writeln('n2='); readln(n2);
for i:=1 to n1 do
for j:=1 to n2 do c[i,j]:=30-random(100);
{блок <em>ввода элементов массива</em>}
<span>writeln</span>;
for i:=1 to n1 do begin
for j:=1 to n2 do write(c[i,j],' ');
writeln;
end;
{сумма положительных чисел в <u>каждом столбце</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 s:=s+c[i,j];</span>
<span>writeln(</span><span>'</span>суммаэлем<span>-</span>в<span>',</span><span>j</span><span>,'–</span>гостолбца<span>=',s,' </span><span>');</span>
end;
end.
ВЫПОЛНИТЕ СЛЕДУЮЩИЕ ЗАДАНИЯ:
Заполнить массив числами организованными случайным образом из интервала
[-15,15].
Изменить программу так, чтобы можно было вычислить количество положительных чисел в каждой строке.
Изменить программу так, чтобы можно было определить положение (индексы) минимального элемента. Результаты изменения и выполнения программы записать в тетрадь.
Изменить программу так, чтобы все положительные числа были заменены, на число 0. Результаты изменения и выполнения программы записать в тетрадь.