Program Matr;
Uses crt;
Var A:array[1..20,1..20] of integer; g:array[1..20] of integer;
i,j,min,k,m,n,nom:integer;
Begin
ClrScr; Randomize; min:=9999;
Write('n='); Readln(n);
Write('m='); Readln(m);
For i:=1 to n do
For j:=1 to m do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:5); k:=k+1;
If k mod m=0 then Writeln;
g[j]:=1;
End;
j:=1;
Repeat
For i:=1 to n do
Begin
g[j]:=g[j]*A[i,j];
End;
j:=j+1;
Until j=m;
For j:=1 to n do
Begin
If g[j]<min then
Begin
min:=g[j];
nom:=j;
End;
End;
Write('min stolb:',nom); Readln;
End.
navi35374
22.12.2022
Большая часть оксида серы(1V) используется для производства сернистой и серной кислоты и их солеи. Используется также в виноделии в качестве консерванта (пищевая добавка Е220), а также для консервирования плодов и фруктов. Так как этот газ убивает микроорганизмы, им окуривают овощехранилища и склады. Оксид серы(IV) используется для отбеливания
соломы, шёлка и шерсти, то есть материалов, которые нельзя отбеливать хлором.
Под термином «кислотный дождь» понимаются любой вид метеорологических осадков: снег, смог, туман, дождь, град, подкисленных (рH ниже 5,6) из-за повышенного содержания в воздухе промышленных выбросов, главным образом SО2, NO2, НС1 и др. Кислотные дожди губительно действуют на природу, здоровье человека, а также на произведения искусства, выполненные из мрамора.
targovich
22.12.2022
Примерно половина производимой серы используется в производстве серной кислоты.
Серу применяют для вулканизации каучука, как фунгицид в сельском хозяйстве, а серу коллоидную — как лекарственный препарат. Также сера в
составе серобиnумных композиций применяется для получения сероасфальта, а в качестве заместителя портландцемента — для получения серооетона. Сера находит применение для производства пиротехнических составов, ранее использовалась в производстве пороха, применяется для производства спичек.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые по модулю не больше 10, найти (программа Паскаль)
Uses crt;
Var A:array[1..20,1..20] of integer; g:array[1..20] of integer;
i,j,min,k,m,n,nom:integer;
Begin
ClrScr; Randomize; min:=9999;
Write('n='); Readln(n);
Write('m='); Readln(m);
For i:=1 to n do
For j:=1 to m do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:5); k:=k+1;
If k mod m=0 then Writeln;
g[j]:=1;
End;
j:=1;
Repeat
For i:=1 to n do
Begin
g[j]:=g[j]*A[i,j];
End;
j:=j+1;
Until j=m;
For j:=1 to n do
Begin
If g[j]<min then
Begin
min:=g[j];
nom:=j;
End;
End;
Write('min stolb:',nom); Readln;
End.