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