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

matveiarzhanoff    1   22.05.2019 05:20    0