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

Question

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

Дан двумерный массив целых чисел размерностью 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. Результаты изменения и выполнения программы записать в тетрадь.

Answer 1

интервал -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:=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;