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