Среди столбцов заданной целочисленной матрицы, содержащих только такие элементы, которые по модулю не больше 10, найти (программа Паскаль)
121
180
Ответы на вопрос:
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.
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.
2.В школьные годы "Тонкий" был худым поэтому у него осталась такая кличка,а "Толстый" наоборот был толстого телосложения поэтому имел такую кличку.
3. В тексте сказано что от "толстого" пахло дорогими духами и шинкой и можно понять что он был богатым и обеспеченным.От "тонкого" пахло кофе ,поэтому можно понять что человек был не очень богат и обеспечен.
4.Они вспоминают про школьные годы и про то как называли друг друга и поэтому им стаёт не по душе.
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
черныйхащ18.07.2020 12:04
-
Ljjr6958der8cox4529.09.2020 14:10
-
RCloke06.04.2023 15:49
-
Мурад100123.11.2021 23:41
-
RomashechkaRomova12.08.2022 06:19
-
usenovaa15.08.2020 06:49
-
pablo22448802.05.2023 18:31
-
evdokiya888p06xhz22.08.2022 15:18
-
raisara01.11.2021 09:47
-
ПандаВера20.10.2022 07:52
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.