Знатоки Азербайджанского Языка . Нужно просто заполнить схему.
Буду благодарна за )
142
350
Ответы на вопрос:
program prog;
var i, j, n, m_i, m_j: byte;
A: array[1..100,1..100] of Real;
maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
{заполнение случайными числами, можно вводить вручную}
for i:=1 to n do
for j:=1 to n do
A[i,j]:=-100+random(200);
{поиск максимального по модулю элемента}
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>maxmod then
begin
maxmod:=abs(A[i,j]);
m_i:=i; m_j:=j;
end;
{Печать матрицы и ответа}
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j]:6:1);
writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
{вывод на печать уменьшенной матрицы}
for i:=1 to n do
if (i<>m_i) then
begin
for j:=1 to n do
if (j<>m_j) then write(A[i,j]:6:1);
writeln;
end;
readln;
end.
var i, j, n, m_i, m_j: byte;
A: array[1..100,1..100] of Real;
maxmod: Real;
begin
randomize;
writeln('Vvedite N:');
readln(n);
{заполнение случайными числами, можно вводить вручную}
for i:=1 to n do
for j:=1 to n do
A[i,j]:=-100+random(200);
{поиск максимального по модулю элемента}
maxmod:=abs(A[1,1]);
m_i:=1;
m_j:=1;
for i:=1 to n do
for j:=1 to n do
if abs(A[i,j])>maxmod then
begin
maxmod:=abs(A[i,j]);
m_i:=i; m_j:=j;
end;
{Печать матрицы и ответа}
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do write(A[i,j]:6:1);
writeln;
end;
writeln('Максимальный по модулю элемент A[',m_i,';',m_j,'] = ', A[m_i, m_j]:6:1);
{вывод на печать уменьшенной матрицы}
for i:=1 to n do
if (i<>m_i) then
begin
for j:=1 to n do
if (j<>m_j) then write(A[i,j]:6:1);
writeln;
end;
readln;
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Другие предметы
-
Как понять математику (Алгебру и Геометрию) Как понять информатику...
kuzyana09.04.2021 20:52 -
Пацаны 65 пойнтов на халяву заберайте...
AlsuApuseva12.01.2021 12:31 -
Назови один из самых популярных и объёмных видов в французской...
Herty2243618.06.2020 00:02 -
-6, 3.r; 2,5y; 4, 2z; -2...
DianaHreseva06.05.2020 21:54 -
Зали правду. вам было трудно, но вы Задание 3. Напишите, что вам...
katastep426.07.2020 22:31 -
Что из нижеперечисленного является нематериальными активами в...
максімаус16.06.2022 19:02 -
Как называются вопросы, ответы на которые могут быть однозначными?...
Вита190801.06.2020 01:36 -
Выполните 20 вариант Желательно на а4 До завтра...
letsplei121221.03.2020 06:13 -
Холявные :3 я люблю тебя...
veronikak360205.05.2020 10:22 -
Граф, графа, графиня, графин. Какая пара слов здесь может обозначать...
neznalomka12.12.2021 02:37
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.