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;beginclrscr;randomize;{блок ввода элементов массива}writeln('n1='); readln(n1);writeln('n2='); readln(n2);for i:=1 to n1 dofor j:=1 to n2 do c[i,j]:=30-random(100); {блок ввода элементов массива}writeln;for i:=1 to n1 do beginfor 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 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;