Срочно нужна помощь!!!!!!!! Дан двумерный массив целых чисел размерностью 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. Результаты изменения и выполнения программы записать в тетрадь.
More Questions From This User See All