Срочно нужна помощь!!!!!!!!

Дан двумерный массив целых чисел размерностью n1xn2. Определить сумму положительных чисел в каждом столбце.

 

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;

{блок ввода элементов массива}

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);

{блок ввода элементов массива}

writeln;

for i:=1 to n1 do begin

for j:=1 to n2 do write(c[i,j],' ');

writeln;

end;

{сумма положительных чисел в каждом столбце}

for j:=1 to n2 do begin

s:=0;

for i:=1 to n1 do

if c[i,j]>0 then s:=s+c[i,j];

writeln('суммаэлем-в',j,'–гостолбца=',s,' ');

end;

end.

ВЫПОЛНИТЕ СЛЕДУЮЩИЕ ЗАДАНИЯ:

Заполнить массив числами организованными случайным образом из интервала

[-15,15]. 

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

 

Изменить программу так, чтобы можно было определить положение (индексы) минимального элемента. Результаты изменения и выполнения программы записать в тетрадь.

 

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